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Preface 


The  purpose  of  this  thesis  was  to  simulate  some 
classical  and  innovative  digital  filter  structures.  The 
effect  of  finite  word  length  limitations  in  the  amplitude 
response  of  various  digital  filters  was  investigated.  Also, 
a  comparison  of  the  result  included  by  response  and  sensi¬ 
tivity  will  be  discussed. 

This  report  develops  the  theory  of  12  different 
digital  filter  structures.  Six  of  them,  which  are  FIR 
(Finite  Impulse  Response)  digital  filters,  are  chosen  for 
simulation.  Anyone  who  is  interested  in  the  finite  word 
length  effects  of  these  digital  filter  structures  should 
find  the  computer  programs  in  Appendices  B,  C,  and  D  to  be 
useful. 

I  want  to  thank  my  advisor,  Dr  Vaqar  Syed,  who  has 
given  me  timely  guidance  essential  to  the  completion  of  this 
study.  A  special  thanks  is  also  expressed  to  my  committee 
members,  Dr  Tom  Jones  and  Lt  Col  John  Carnaghie,  for  their 
expert  advice.  Finally,  a  thank  you  is  extended  to  all  the 
students  and  staff  of  the  AFIT  Digital  Signal  Processing 
Laboratory  for  their  technical  support. 


Harun  Inanli 
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Abstract 


t 

One  of  the  main  problems  in  digital  filter  implemen¬ 
tation  is  that  all  practical  devices  are  of  finite  precision. 
Therefore,  the  finite  word  length  effect  of  digital  filters 
is  an  area  of  high  interest. 

There  are  various  types  of  digital  filter  structures. 
Due  to  the  effect  of  finite  word  length  registers,  each 
digital  filter  structure  gives  a  slightly  different  output 
response  for  the  same  transfer  function.  Therefore,  it  is 
important  to  find  the  best  filter  structure  which  has  the 
lowest  affect  on  the  output  response  for  the  same  transfer 
function . 

In  this  paper,  six  HR  (Infinite  Impulse  Response) 
digital  filters  and  six  FIR  (Finite  Impulse  Response)  digital 
filters  are  investigated,  theoretically,  for  the  low  sensitiv 
ity  due  to  a  finite  word  length  register.  In  addition,  the 
six  FIR  digital  filters  are  simulated  by  computer  to  obtain 
practical  results.  Finally,  it  will  be  shown  that  NS  (Nested 
Structure)  digital  filters  produce  the  "best"  response  if 
minimum  sensitivity  is  the  figure  of  merit. 


STUDY  OF  FINITE  WORD  LENGTH  EFFECTS  IN  SOME 
SPECIAL  CLASSES  OF  DIGITAL  FILTERS 

I.  Introduction 

A  digital  filter  is  a  system  which  is  used  to  pro¬ 
cess  discrete  time  signals.  The  filter  can  take  one  of  the 
two  forms.  In  one  form,  the  filter  could  be  simply  a  numer¬ 
ical  signal  processing  algorithm,  which  can  be  implemented 
on  a  general  purpose  or  a  special  purpose  digital  computer. 
In  the  other  form,  the  filter  could  be  a  dedicated  piece  of 
hardware,  specially  designed  to  fit  a  particular  processing 
scheme.  The  choice  of  one  form  over  the  other  involves 
several  considerations.  For  example,  the  computer  implemen¬ 
tation  is  the  most  flexible  one  of  the  above  two  schemes. 

A  simple  program  change  is  all  that  is  required  to  implement 
a  different  filter.  As  to  be  expected,  a  hardware  implemen¬ 
tation  is  not  as  flexible.  On  the  other  hand,  a  digital 
computer  implementation  is  inherently  slower  than  the  hard¬ 
ware  implementation.  Furthermore,  hardware  implementation 
may  be  cheaper  in  terms  of  hardware  cost ,  but  more  expensive 
in  terms  of  development  cost.  No  matter  which  particular 
form  is  chosen,  the  so-called  "finite  word  length  effects" 
should  carefully  be  taken  into  account  for  any  useful  imple¬ 
mentation  of  a  digital  filter.  These  effects  stem  from  the 


fact  that  any  digital  computer  or  digital  network  operates 
with  finite  number  of  bits.  Thus,  signal  quantization, 
filter  coefficient  quantization,  and  register  overflows 
must  be  expected.  Depending  upon  what  particular  structure 
one  wants  for  a  filter  implementation,  these  effects, 
commonly  called  the  "finite  word  length  effects,"  will  result 
in  significantly  different  filter  responses. 

A  desirable  implementation  of  a  digital  filter  is 
the  one  that  minimizes  the  effect  of  finite  word  length  on 
the  filter  performance.  We  will  term  such  an  implementation 
the  "low  sensitivity  realization."  The  main  purpose  of  this 
study  will  be  to  examine  from  literature,  various  low  sensi¬ 
tivity  structures,  analyze  bounds  on  their  performance  and 
present  a  comparison  of  these  realizations  in  terms  of 
coefficient  sensitivity  and  round-off  errors.  The  work 
presented  here  will  be  based  on  computer  simulation  of  digi¬ 
tal  filters  using  register  lengths  of  variable  number  of 
bits  and  the  finite  precision  arithmetic. 


Scope  of  This  Study 

This  study  involves  both  theoretical  and  experimental 
investigations.  The  main  goal  of  this  thesis  is  to  implement 
typical  digital  filters  of  the  low-pass,  band-pass,  and  high- 
pass  type  using  various  structures  reported  in  literature. 
Then,  taking  into  account  the  finite  word  length  limitations 
of  digital  machines,  the  filter  will  be  theoretically  analyzed 
for  register  overflows,  amplitude  response  errors,  and  limit 


cycling  (if  any).  These  theoretical  predictions  will  be 
compared  with  digital  filters  of  various  word  lengths  simu¬ 
lated  on  the  digital  computer  in  the  AFIT  Digital  Signal 
Processing  Laboratory. 

Organization  of  This  Thesis 

This  thesis  has  been  organized  as  follows.  Follow¬ 
ing  this  introduction  chapter,  Chapter  I,  we  present  in 
Chapter  II  a  brief  review  of  the  theory,  terms  and  defini¬ 
tions  that  pertain  to  digital  filters.  Included  here  will 
be  the  finite  impulse  response  (FIR)  and  infinite  impulse 
response  (HR)  filters,  digital  filter  realizations,  number 
systems  and  their  properties. 

In  Chapter  III,  some  recently  reported  and  some 
commonly  known  structures  for  the  realization  of  digital 
filters,  both  for  IIR  and  FIR  filters,  will  be  reviewed. 
Various  issues  related  to  the  finite  word  length  of  digital 
systems  will  be  described  here.  Furthermore,  a  sensitivity 
analysis  of  the  various  filter  structures  described  in  this 
chapter  will  be  presented  along  with  theoretical  upper 
bounds  on  their  performance  and  limit  cycling  (if  any)  due 
to  the  round-off  noise  effects. 

In  Chapter  IV,  simulation  examples  of  the  digital 


filter  structure  described  in  Chapter  III  will  be  presented 


II.  Digital  Filter  Preliminaries 


Introduction 

A  digital  filter  can  be  represented  by  a  network 
which  contains  a  collection  of  interconnected  elements. 
Analysis  of  a  digital  filter  is  the  process  of  determining 
the  response  of  the  filter  network  to  a  given  input. 

This  chapter  is  an  introduction  to  the  basics  of 
digital  filters.  A  brief  review  of  basic  definitions, 
terminology  and  mathematical  preliminaries  related  to  the 
digital  filter  will  be  presented  here. 

The  Digital  Filter  As  A  System 

A  digital  filter  can  be  defined  as  an  operator 
which  transforms  an  input  sequence  x(n),  n=0,  ±1,  ±2,  ±3  .. 
into  an  output  sequence  y(n)  ,  written  symbolically  as 

{y(n) }  -  T{xCn) }  (2-1) 

where  T  is  the  transformation  operator.  We  will  be  con¬ 
cerned  here  with  the  class  of  operators  which  are  termed 
linear  and  shift  invariant.  An  operator  T  is  linear  if  the 
principle  of  superposition  holds;  i.e.,  if 

(y^n)}  »  Tfx^n)} 

and 

<y2Cn) >  *  T{xg(n) } 


5 


then 


(a^y^n)  +  a2y2(n)}  =  T{a1x1(n)  +  ct2x2(n)}  (2-2) 

where  and  a2  are  constant. 

An  operator  T  is  shift  invariant  if  a  shift  of  m 
in  the  input  sequence  {x(n)>  produces  the  same  shift  m 
in  the  same  direction  in  the  output  sequence  (y(n)}  . 

That  is, 

{y(n-m)}  *  T{x(n-m)}  (2-3) 

A  digital  filter  satisfying  the  properties  defined 
by  Equations  (2-2)  and  (2-3)  above  is  called  a  linear  shift- 
invariant  digital  filter. 

A  more  restricted  class  of  linear  time  invariant 
digital  filter  can  be  defined  by  imposing  causality  and 
stability.  A  causal  system  is  the  one  for  which  the  output  for 
any  n«*nQ  depends  on  the  input  for  n£nQ  only;  i.e.,  if 
the  input  sequences  x^(n)  and  x2(n)  are  such  that 


6 


Figure  1.  Illustrat ion  of  Causality:  fa)  Response  to 
x^n),  (b)  Response  to  x2(n) 

A  stable  system  is  one  for  which  evr  ry  bounded  input 
produces  a  bounded  output.  In  this  study,  no  will  only  con¬ 
sider  causal  and  stable  digital  filters.  Furthermore,  without 


loss  of  generality,  we  will  assume  that  the  input  to  the 
digital  filters  discussed  in  this  thesis  are  sampled  time- 
domain  signals,  and  that  the  outputs  are  also  sampled  time- 
domain  signals  specified  at  the  sampling  instants  nT,  n  - 
±1,  ±2,  ...  .  Thus,  instead  of  the  nomenclature  "shift- 
invariant,"  we  will  use  "time- invariant . "  Furthermore,  we 
, will  assume  that  the  sampling  rate  employed  satisfies  the 
Nyquist  criterion  given  by  the  following  statement  of  the 
sampling  theorem. 

The  Sampling  Theorem.  A  band  limited  signal  having 
no  spectral  components  above  a  frequency  of  B  Hz  is  deter¬ 
mined  uniquely  by  its  values  at  uniform  intervals  spaced  no 
more  than  ^  second  apart. 

For  proof,  the  reader  is  referred  to  [1]  or  [2J . 

Fundamental  to  the  design  of  linear,  time-invariant 
digital  filters  is  the  Z-transform  concept.  We,  thus, 
briefly  review  the  essentials  of  the  Z-transforms. 

The  Z-Transform 

The  two-sided  Z-transform  X(z)  of  a  sequence  x(n) 
is  defined  as 

00 

X(z)  -  Ex(n)  z"n  (2-6 

n-— • 

where  z  is  a  complex  variable  of  the  form  z  »  a  +  jw  . 

If  the  summation  proceeds  for  n£0  ,  we  have  the 
one-sided  Z-transform  X- (z)  defined  as 


(2-7) 


X-(z)  =  Ix(n)  z 


The  infinite  series  of  Equations  (2-6)  and  (2-7)  does  not 
always  converge.  However,  we  assume  that  for  the  sequences 
of  interest  here,  the  series’  do  converge. 

If  the  Z-transform  of  a  sequence  x(n)  exists,  then 
the  sequence  x(n)  can  be  recovered  from  X(z)  via  an 
inverse  operation  called  the  inverse  Z-transform,  given  by 


x(n) 


|3» 


z)  z11'1  dz 


(2-8) 


Here,  C  is  a  counterclockwise  closed  contour  in  the  region 
of  convergence  of  X(z)  ,  and  encircles  the  origin  of  the 
Z-plane.  The  details  of  the  contour  integration  of 
Equation  (2-8)  are  outlined  in  [3]  and  14] . 

A  few  properties  of  the  Z-transforms  and  the  rela¬ 
tionship  of  the  Z-plane  with  the  S-plane  which  will  be 
useful  in  the  subsequent  development  are  reviewed  next. 

(a)  Linearity.  Consider  two  sequences  x(n)  and 
y(n)  ,  with  Z-transforms  X(z)  and  Y(z)  respectively; 
i.e.,  symbolicly, 


Z[x(n)]  -  X(z) 


Z[y(n)]  -  Y(z) 
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then,  for  constants  a  and  b 


Z[ax(n)  +  by(n)]  =  aX(z)  +  bY(z)  (2-9) 

(b)  Shift .  Consider  a  sequence  x(n)  such  that 
Z[x(n>]  =  X(z) 


then 

Z[x(n±m)]  »»  z±m  X(z)  (2-10) 

Thus,  for  example,  for  constants  a,  b,  and  c 

Z[ax(n)  +  bx(n-l)  +  cx(n-2)]  ■  aX(z)  +  bz”1  X(z) 

+  cz-2  X(z) 

(c)  Convolution  of  Sequences.  The  convolution  sum 
of  two  sequences  x(n)  and  h(n)  is  defined  by  the  follow¬ 
ing  two  equivalent  summations: 


+oo 

Z  x(k)  h(n-k) 

k»_oo 


+00  * 

Z  x(n-k)  h(k)  (2-11) 

k“-oo 

If,  for  a  linear  time  invariant  filter,  h(n)  and 
x(n)  represent  its  impulse  response  and  input,  respectively, 
then  its  output  y(n)  is  given  by  the  above  two  summations. 
Denoting  the  convolution  by  *,  we  then  write 


tTTP  '.VA  '.V.V.".' .V.V.VW.V.V.r.V.V  ^'  TV'/:' «7r.'7l»7 


y(n)  =  x(n)  *  h(n ) 


(2-12) 


Convolution  in  the  time  domain  is  equivalent  to  the  multi¬ 
plication  in  the  Z-domain.  Thus 


Y(z)  -  X(z)  H(z)  =  H(z)X(z)  (2-13) 


where 

Y(z)  -  Z  [y  (n)  ] 
X(z)  -  Z[x(n)] 
H(z)  -  Z [h(n) ] 


(d)  Initial  Value  Theorem.  If  lim  X(z)  exists  and 

Z-M» 

x(n)  is  zero  for  n<0  ,  then 


x(0)  ■  lim  x(n)  »  lim  X(z) 
n-*-0  z-*°° 


(2-14) 


For  example: 

x(n)  -  u(n)[  ^  +  |  C--5  )n3 

where  u(n)  is  the  unit  step.  The  Z-transform  of  x(n) 
is 

Zh(n)]  -  XU)  -  gTzffij&jhfy 
Initial  value  in  time-domain  and  Z-domain  are 


lim  x(n)  =  1 
n-*0 
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lim  X(z )  =  1 

Z-*-oo 


So, 


lim  x(n)  58  lim  X(z) 
n+0  z**<® 

(e)  Final  Value  Theorem.  If  X(z)  converges  for 

\ 

|z|>l  and  all  the  poles  of  (l-z)X(z)  are  inside  the  unit 
circle,  then 

lim  x(nT)  =  lim  [(l-z_1)X(z)]  (2-1 

n-»-<=°  z-*l 

Mapping  to  the  Z-Plane.  The  relationship  between 
points  in  the  2-plane  and  the  S-plane  is  described  by 

z  -  eTs  (2-1 

where 

e  -  2.73 

T  -  sampling  time 
z  *  Z- plane  parameter 

s  =  S-plane  parameter  in  the  complex  form  of  a+jco 

The  transformation  can  be  investigated  by  inserting 
s  *  a+jco  into  Equation  (2-16)  to  obtain 


aT  iwT 


/  n 


Sampling  time  can  be  found  from 


T  =  |2L  (2-18) 

s 

where  w  is  sampling  frequency.  Let  us  substitute  Equa- 
s 

tion  (2-18)  into  Equation  (2-17).  Therefore 

z  -  eoT  eJ2,,“/“s  (2-19) 

Equation  (2-19)  shows  that: 

1.  Lines  of  constant  in  the  S-plane  map  into 

alT 

circles  of  radius  equal  to  e  in  the  Z-plane.  Specifi¬ 
cally,  the  segment  of  the  imaginary  axis  a  in  the  S-plane  of 

width  oj  maps  into  the  circle  of  unit  radius  in  the  Z-plane. 
s 

So,  the  condition  for  stability  is  that  all  roots  of  the 
characteristic  equation  lie  within  the  unit  circle. 

2.  Lines  of  constant  w  in  the  S-plane  map  into 
radial  rays  drawn  at  the  angle  ojT  in  the  Z-plane.  The  por¬ 
tion  of  the  constant  w  line  in  the  left  half  of  the  S-plane 
becomes  the  radial  ray  within  the  unit  circle  in  the  Z-plane. 
The  corresponding  paths,  as  discussed  above,  are  shown  in 
Figure  2.  For  further  detail,  the  reader  is  referred  to  [5]. 

Classification  of  Digital  Filters 

In  general,  linear  shift-invariant  digital  filters 
are  classified  into  two  major  groups: 


Transformation  from  the  S-Plane  to  the  Z-Plane 


1.  HR  (Infinite  Impulse  Response)  filters  or 


recursive  filters. 

2.  FIR  (Finite  Impulse  Response)  filters  or  non¬ 
recursive  filters. 

Infinite  Impulse  Response  Filters.  A  filter  defined 
by  an  impulse  response  sequence  for  which  the  range  of  non¬ 
zero  values  extends  to  positive  infinity,  negative  infinity, 
or  both.  The  current  output  for  IIR  filters  depends  upon 
current  and/or  previous  inputs  as  well  as  previous  outputs. 
This  input-output  relationship  satisfies  the  difference 
equation, 

N  M 

y(n)  =  — Z  aty(n-k)  +  £  b.x(n-k)  (2-20 

k=l  lc»0 


where 

y(n)  »  output  sequence 

x(n)  =  input  sequence 

ak.bk  *  digital  filter  coefficients 

N,M  =  the  number  of  poles  and  zeros,  respectively 

In  the  Z-domain,  Equation  (2-20)  can  be  represented 
by  its  transfer  function  H(z),  which  in  this  case  has  a  very 
simple  form. 


Y(z)  =  H(z)X(z) 


(2-21 


!v  <w 
\K'X 


where  H(z),  the  filter  transfer  function,  is  given  by 


H(z) 


Z  bk  z' 
k=0  K 


1  +  Z  a.  z" 
k=l  K 


(2-22) 


The  roots  of  numerator  and  denominator  polynomials  are 
the  zeros  and  poles  of  the  filter,  respectively,  in  Equa¬ 
tion  (2-22).  The  poles  determine  the  stability  of  digital 
filters.  Thus,  if  the  poles  of  a  digital  filter  are  inside 
a  unit  circle  in  the  Z-plane,  the  filter  is  stable. 

Finite  Impulse  Response  Filters.  A  filter  defined 
by  an  impulse  response  sequence  which  is  nonzero  over  only 
a  finite  range  and  the  output  is  independent  of  previous 
output.  In  this  case,  the  filter  coefficients  satisfy  the 
following  conditions  in  Equation  (2-20) 


a^  =  0  for  k  f  0 


(2-23) 


The  difference  Equation  (2-20)  reduces  to 


y(n)  =  2  b.  x(n-k) 

k=0  K 


(2-24) 


and,  hence,  the  transfer  function  in  Z-domain  reduces  to 


H(z)  =  Z  b.  z' 
k=0 


(2-25) 
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If  the  above  equation  is  multiplied  by  — jj  ,  we  get 


M 


H(z) 


E  b.  z 
k-0  K 


M-k 


IT 


(2-26) 


It  is  obvious  from  Equation  (2-25)  that  FIR  filters  have 
only  finite  zeros;  all  the  poles  of  these  filters  are  located 
at  z  -  0  . 

The  choice  between  an  FIR  filter  and  HR  filter 
depends  on  the  application.  High  selectivity  can  easily  be 
achieved  with  low-order  transfer  function  in  application  of 
IIR  filters  by  placing  the  poles  anywhere  inside  the  unit 
circle.  In  the  case  of  FIR  filters,  this  can  be  done  only 
by  using  a  relatively  high  order  for  the  transfer  function. 

In  practice,  the  cost  of  digital  filter  tends  to  increase 
and  its  speed  tends  to  decrease  as  the  order  of  transfer 
function  is  increased.  Hence,  for  high-selectivity  appli¬ 
cations,  the  choice  is  expected  to  be  an  IIR  filter.  How¬ 
ever,  FIR  filters  have  two  attractive  properties.  First, 
there  is  the  possibility  of  designing  exact  linear  phase, 
required  in  many  applications.  Second,  FIR  filters  are 
never  unstable.  A  detailed  consideration  about  this  subject 
is  given  in  [6] . 


*»  •« 


Realization 


From  Equations  (2-22)  and  (2-25)  in  the  previous 
section,  it  is  obvious  that  the  basic  operations  required 
for  realization  of  these  equations  are  additions,  shift  and 
multipliers.  The  interconnections  of  these  basic  operations 
specify  the  filter  structure. 

There  are  an  infinite  variety  of  structures  that 
will  result  in  the  same  relationship  between  the  input 
samples  x(n)  and  the  output  samples  y(n)  .  The  selec¬ 
tion  of  the  filter  structure  is  very  important  in  design 
process  because  it  directly  affects  the  efficiency  and 
performance  of  the  filter.  Further  details  of  the  various 
digital  filter  structures  and  their  effect  on  the  efficiency 
and  performance  of  digital  filters  will  be  discussed  as 
needed  in  the  chapters  that  follow. 

As  discussed  in  the  previous  chapter,  the  process 
of  quantization  is  fundamental  to  digital  filters.  The 
following  section  is  concerned  with  a  brief  description  of 
this  important  aspect  of  digital  machines. 


Duant ization 


After  the  selection  of  the  filter  class  and  structure, 


the  next  step  is  the  realization  of  this  structure  via  a 
general  purpose  computer  or  special  purpose  hardware. 
Either  way,  there  is  an  inherent  limitation  on  accuracy, 


because  all  digital  networks  operate  with  only  a  finite 
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number  of  bits,  .which  in  turn  specify  the  register  word 
length.  This  means  that  the  coefficients  used  in  implementing 
a  given  filter  will,  in  general,  not  be  exact,  and  therefore 
the  poles  and  zeros  of  the  filter  will  be  different  from  the 
desired  poles  and  zeros.  This  movement  of  poles  and  zeros 
causes  errors  in  the  desired  output  of  the  digital  filter, 
and  in  the  HR  case,  may  even  make  it  unstable! 

The  quantization  of  coefficients  and  signal  in 
implementing  a  given  filter  is  achieved  either  by  rounding 
or  by  truncation  (chopping).  We  thus  discuss  rounding  and 
truncation  in  the  binary  domain  in  the  following  paragraphs. 

Rounding.  In  rounding,  a  one  or  zero  is  first 
added  to  the  t  bit  (t  is  the  number  of  bits  in  the  register 
word  length  excluding  sing  bit)  according  to  whether  the 
(t+D'th  bit  is  one  or  zero.  Then,  only  the  first  t  bits 
of  the  results  are  kept.  For  example,  let  us  assume  arbi¬ 
trary  number  for  coefficients  or  signal  a  =  0.234  and  the 
register  word  length  t  =■  7  .  The  binary  representation  of 
this  number  is  0.001110111.  Since  the  word  length  is  limited 
to  seven  bits  and  the  bit  is  a  one,  one  is  to  be  added 

x 

to  the  8  bit  of  numbers.  Then,  the  result  is  0.0011110. 

So,  the  number  will  be  realized  as  0.0011110  instead  of 
0.0011101111  .... 

Truncation .  In  truncation,  those  bits  beyond  the 
most  significant  t  bits  are  simply  dropped.  Thus,  in  the 
above  example,  the  number  used  in  rounding  will  be  realized 


as  0.0011101  if  computations  are  based  on  truncation  tech¬ 
nique. 


The  error  resulting  from  number  quantization  will 
change  the  desired  input  and  filter  coefficient.  This  error 
can  be  classified  in  various  categories  as  follows: 

1.  Input-quantization  errors 

2.  Coefficient-quantization  errors 

3.  Product  quantization  errors. 

In  addition  the  word  length,  the  accuracy  of  a 
digital  filter  depends  on  two  important  factors:  (1)  the 
type  of  arithmetic  used,  and  (2)  as  stated  before,  the 
form  of  realization. 

Number  Representation 

Before  studying  the  error  behavior  of  digital 
filters,  it  is  necessary  to  describe  how  the  numbers,  used 
in  the  implementation,  are  represented.  The  implementation 
of  digital  filter  is  based  on  the  binary  number  representa¬ 
tion.  Binary  number  is  represented  as  a  string  of  binary 
digits  (bits)  that  are  either  zero  or  one  with  a  binary 
point  dividing  the  integer  part  from  the  fractional  part. 

There  are  two  possible  ways  of  specifying  the  posi¬ 
tion  of  the  binary  point  in  a  register:  one,  by  giving  it 
a  fixed-point  position,  which  is  known  as  "fixed-point 
binary  number  representation,"  and  the  other,  by  employing 


a  floating-point  which  is  known  as  "floating-point  number 
representation."  In  fixed-point,  binary  point  is  always 
fixed  in  one  position.  The  two  positions  used  are:  (1)  a 
binary  point  in  the  extreme  left  of  the  register  which  makes 
the  number  fraction,  and  (2)  a  binary  point  in  the  extreme 
right  which  makes  the  number  integer.  For  example,  let  "a" 
be  the  arbitrary  binary  number  and  vA  the  binary  point. 

a  =  A  10110101 

(binary  point  in  the  extreme  left  position) 

a  =  10110101. 

A 

(binary  point  in  the  extreme  right  position) 

In  a  floating-point  arithmetic,  no  specific  physical 
position  of  the  register  is  assigned  to  the  binary  point. 

The  numbers  need  two  registers.  The  first  represents  a 
signed  fixed-point  number  and  the  second,  the  position  of 
the  radix  point.  The  contents  of  the  first  register  are 
called  the  coefficient  or  mantissa  and  the  contents  of  the 
second  register  is  called  the  exponent  (or  characteristic). 

Floating-point  is  always  interpreted  to  represent  a 
number  in  the  following  form: 

c.re 

where  c  represents  the  contents  of  the  coefficient  register 
and  e  ,  the  contents  of  the  exponent  register.  For  example. 


the  number  +1001^110  can  be  represented  as  follows: 

0100111000  00100 
(coefficient)  (exponent) 

The  first  bit,  at  the  extreme  left  in  both  registers, 
represents  the  sign  bit.  Zero  stands  for  positive,  and  one 
stands  for  negative  numbers.  For  detailed  information  about 
the  number  representation,  the  reader  is  referred  to  [7]  or 
[8] .  This  study  will  be  based  on  fixed-point  binary  number 
representation,  with  the  binary  number  in  the  extreme  left 
of  the  register,  representing  the  sign  of  the  number. 

There  are  many  other  schemes  for  the  representation 
of  negative  numbers.  The  reason  that  this  particular  scheme 
was  chosen  for  number  representation,  as  we  will  discuss 
later  in  this  chapter,  is  to  make  the  handling  of  addition 
and  subtraction  easy.  In  this  number  representation,  when  the 
number  is  negative,  the  sign  is  represented  by  a  "1"  in  the 
extreme  left  position  of  the  register,  and  the  rest  of  the 
number  may  be  represented  in  any  one  of  the  following  three 
different  ways: 

1.  Sign-Magnitude 

2.  Sign-1 's  complement 

3.  Sign-2' s  complement 

As  an  example,  the  binary  number  6  is  written  below 
by  using  4-bit  available  register  in  the  three  representa¬ 


tions. 


0110 


1110 


Sign-magnitude 
Sign-1 's  complement  0110  1001 

Sign-2 's  complement  0110  1010 

The  "0"  in  the  left-most  bit  of  the  register  represents  the 
positive  numbers.  As  we  can  see  from  the  above  example, 
the  representations  of  positive  number  are  the  same  in  all 
systems.  The  magnitude  of  sign-1' s  complement  is  obtained 
by  exchanging  0  and  1  in  sign-magnitude  representation. 

Then,  two's  complement  is  obtained  by  adding  1  to  the  sign-1' 
complement.  In  this  study,  the  numbers  are  represented  by 
sign-magnitude.  However,  when  they  are  added  or  subtracted, 
they  are  represented  in  sign-2 's  complement.  The  basic 
operations  of  shifts,  additions,  and  multiplication  are  next 
discussed  in  the  number  system  used  in  this  thesis. 

Shifts 

Shift  is  the  basic  operation  of  binary  multiplaction , 
and  can  be  a  shift-left  or  a  shift-right.  In  any  case,  the 
sign  bit  should  remain  the  same.  In  arithmetic,  shift-left 
multiplies  a  signed  binary  number  by  2.  In  arithmetic, 
shift-right  divides  the  number  by  2. 

Addition 

The  addition  can  be  done  in  all  number  systems;  but 
the  easiest  way  to  handle  the  addition  is  sign-2 's  complement 


addition  [7] .  Both  augend  and  addend  are  represented  in 
sign-2 's  complement  and  the  sum  is  obtained  in  sign-2 's 
complement  also.  The  advantage  of  sign-2 's  complement 
addition  over  the  others  is  that  the  sign  bit  is  automatic, 
and  thus,  one  does  not  have  to  worry  about  it.  An  example 
is  shown  below 


-9  1110111 

+  -9  +  1110111 

-18  1101110 

As  we  can  see  from  the  above  example,  including 
sign-bit  is  added  and  a  carry  in  the  most  significant  (sign) 
bit  is  discarded.  For  further  detail  about  this,  the  reader 
is  referred  to  the  reference  I8J  or  [9] .  Another  problem 
that  we  can  run  into  during  addition  is  overflow.  When  two 
numbers  of  n  digits  each  are  added  and  the  sum  occupies 
n+l  digits,  we  say  that  an  overflow  has  occurred.  There 
are  a  variety  of  ways  of  checking  the  overflow.  In  this 
study,  we  handle  overflow  by  setting  another  bit  after  sign 
bit  to  the  augend  register.  Let  us  look  at  an  example: 
first  without  checking  overflow  and  the  second  with  checking 
overflow. 


-35 

1011101 

+  -40 

+  1011000 

+53 

0110101 

incorrect 

-35 

01011101 

-40 

+  1011000 

-75 


10110101 


correct 


Multiplication 

In  digital  filter  implementation,  multiplier  is  the 
device  which  takes  most  of  the  time.  Both  multiplicand  and 
multiplier  require  n  bit  register  to  represent  the 
number  in  sign-magnitude  number  system.  But,  the  product 
register  requires  2n  bit  register  to  get  the  correct  result. 

Multiplication  of  two  fixed-point  binary  numbers  in 
sign-magnitude  representation  is  done  with  paper  and  pencil 
by  successive  additions  and  shifting.  For  example, 

6  110 

x  3  x  Oil 

18  110 

110 
000 

10010 


The  sign  of  the  product  is  determined  from  the  signs 
of  the  multiplicand  and  multiplier.  If  they  are  alike,  the 
sign  of  the  product  is  plus.  If  they  are  unlike,  the  sign 
of  the  product  is  minus. 

In  digital  filter  implementation,  it  is  convenient 
to  change  the  process  slightly  for  multiplication  explained 
above.  Instead  of  providing  digital  circuits  to  store  and 
add  simultaneously  as  many  binary  numbers  as  there  are  ones 
in  the  multiplier,  it  is  convenient  to  provide  circuits  for 
the  summation  of  only  two  binary  numbers  and  successively 
accumulate  the  partial  product  in  a  register.  The  previous 
numerical  example  is  repeated  here  to  clarify  the  proposed 


multiplication  process: 


multiplicand  110 

multiplier  OH 

1st  multiplier  bit=l  copy  multiplicand  110 

shift  right  to  obtain  partial  product  0110 

2nd  multiplier  bit=l  copy  multiplicand  110 

add  multiplicand  to  previous  partial  product  10010 

shift  right  to  obtain  2nd  partial  product  010010 

3rd  multiplier  bit=0,  shift  right  to  obtain 

the  final  product  0010010 


We  can  ignore  the  zeros  at  the  left  hand  side;  thus, 
we  can  easily  see  that  the  above  is  the  same  result  as  we 
obtained  with  the  hand  calculation. 

Summary 

In  this  chapter,  we  reviewed  a  number  of  basic  defi¬ 
nitions  related  to  digital  systems,  including  realization, 
quantization  and  number  systems. 

The  definition  of  digital  filters,  linearity, 
causality,  and  stability  were  presented  and  the  z-transform 
was  reviewed.  Some  theories  in  z-transform  such  as  linearity, 
shift,  convolution,  initial  and  final  value,  and  the  relation 
between  the  s-plane  and  the  z-plane  were  studied. 

The  two  broad  classes  of  digital  filters  such  as  FIR 
and  HR  were  considered  and  their  comparisons  were  made.  The 
definition  of  realization  and  quantization,  type  of 


quantization,  such  as  rounding  and  truncating,  were  out¬ 
lined. 

Finally,  number  systems  such  as  floating  point,  fixed 
point,  signed  magnitude  l's  complement,  2's  complement  and 
arithmetic  operations  such  as  shift,  addition,  multiplication, 
and  overflow  problems  were  reviewed. 


Ill .  Realization  and  Sensitivity  Analysis 
Introduction 

The  realization  is  the  step  in  digital  filter 
implementation  process  that  converts  a  given  transfer  func¬ 
tion  into  an  algorithm  or  a  network.  The  realization  step 
is  carried  out  on  the  assumption  that  the  arithmetic  devices 
to  be  employed  are  of  infinite  precision.  Since  practical 
devices  are  of  finite  precision,  it  makes  the  realization 
of  digital  filter  more  complicated. 

There  are  various  types  of  filter  structures;  and 
due  to  the  effect  of  finite  word  length  registers,  each  one 
of  them  gives  slightly  different  output  response  for  the 
same  transfer  function.  Therefore,  it  is  important  to  find 
the  filter  structure  which  has  the  lowest  effect  on  the 
output  response  of  the  filter. 

In  this  chapter,  previously  well-known  filter  struc¬ 
tures  and  a  recently  reported  new  structure  [13]  will  be 
discussed  for  both  HR  and  FIR  systems.  Considered  struc¬ 
ture  are  direct,  cascade  and  parallel,  as  well  as  a  newly 
reported  structure,  the  so-called  "Nested  Structure"  (NS). 
Along  with  the  realization  of  the  filter  structure,  the 
sensitivity  will  be  analyzed.  To  do  this,  it  is  more  con¬ 
venient  to  consider  IIR  and  FIR  filters  separately. 


Direct  Form 

It  is  one  of  the  simplest  forms  of  realization,  and 
can  be  obtained  by  examining  Equation  (2-20)  for  HR  and 
Equation  (2-24)  for  FIR  filters.  Kaiser  [11]  has  shown  that 
the  sensitivity  of  the  filter  response  to  the  accuracy  of 
representation  of  the  denominator  coefficients  in  the  IIR 
direct  form  increases  very  rapidly  with  increases  in  filter 
order  compared  to  either  the  cascade  or  the  parallel  form. 
However,  in  this  study,  it  is  shown  that  the  same  is  not 
true  for  FIR  filters. 

IIR  Filters.  This  filter  is  characterized  by  an 
input-output  relationship  of  Equation  (2-20),  or  equiva¬ 
lently  by  its  Z-domain  transfer  function  H(z),  which  is 
given  by  Equation  (2-22).  For  the  purpose  of  realization. 
Equation  (2-22)  can  be  written  in  the  alternative  form 


1  +  alz  +  a2z  «■  . . .  ♦  aNz 


The  direct  form  is  simply  defined  to  be  a  straightforward 
implementation  of  Equation  (2-20)  or  Equation  (3-1).  The 
corresponding  digital  filter  structure  is  shown  in  Figure  3. 
Note  that  the  direct  form  has  the  minimum  number  of  delay  elements 
FIR  Filters.  The  input  and  output  relationship  of 
FIR  filters  is  expressed  by  Equation  (2-24),  rewritten  below 
for  convenience,  and  labeled  by  (.3-2). 


y(n)  =  Z  h(k)  x(n-k) 
k=0 


(3-2 


The  transfer  function  H(z)  in  the  Z-domain  can  then  be 
expressed  as, 


H(z)  =  E  h(k)z* 
k=0 


(3-3 


H(z)  is  a  polynomial  in  z  of  degree 


Thus,  H(z)  has 


M  poles  at  z=0  and  M  zeros  that  can  be  anywhere  in  the 
finite  Z-plane.  The  structure  shown  in  Figure  4  is  simply 
a  straightforward  implementation  of  Equation  (3-3).  It  is 
obvious  that  the  direct  form  structure  for  FIR  systems  is 
a  special  case  of  the  direct  form  structure  for  HR  systems 
when  all  the  coefficients  of  Equation  (2-20)  are  zero. 


Cascade  Form 

Cascade  structure  is  obtained  by  factoring  the 

numerator  of  the  transfer  function  H(z),  which  is  an  nth 

order  polynomial  in  z-^,  into  numerous  second  order  factors 

-2-1  0 

involving  the  powers  z  ,  z  ,  and  z  .  Each  one  of  these 
second  order  polynomials  is  then  realized  as  a  second  order 
filter  section.  Cascading  these  sections  results  in  the 
required  digital  filter.  There  is  clearly  considerable 
freedom  in  the  choice  of  the  ordering  of  these  sections. 


«'V<' 


Direct  Form  for  FIR  Digital  Filters 


Cascade  structure  tends  to  have  comparatively  low  sensi¬ 
tivity  to  the  filter  parameter  variations  [1]. 

HR  Filters.  Digital  filter  transfer  function  H(z) 
expressed  by  Equation  (2-22)  can  be  factored  into  a  product 
of  second  order  transfer  function  as 

M 

H(z)  =  n  H,  (z)  (3-5 

i-1  1 


where 


H^z) 


bn  +  b-  z'1  +  b„  z 

ui  H _ fi_ 

1  +  a1  z  ^  +  a0  z 
Zi 


(3-6 


Each  H^(z)  is  then  realized  separately.  The  resulting 
filter  structure  is  shown  in  Figure  5. 

There  is  considerable  flexibility  in  the  manner  in 
which  the  poles  and  zeros  are  paired  together  and  in  the 
order  in  which  the  resulting  second-order  subsystems  are 
cascaded.  However,  they  have  slightly  different  response 
due  to  the  finite  word  length  effect.  We  will  show  some 
examples  to  illustrate  this  phenomenon  in  Chapter  IV. 

FIR  Filters.  Similar  to  IIR  filters,  the  digital 
filter  transfer  function  HCz)  expressed  by  Equation  (2-25) 
can  be  factored  into  a  product  of  second-order  transfer. 
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function  is 


M 

H(z )  =  n  H. (z)  (3-7) 

i=l  1 


where 


H.(z)  =  bn  +  b-  z"1  +  b«  z~2  (3-8) 

The  corresponding  filter  structure  is  shown  in 
Figure  6. 

We  have  seen  that  each  second-order  section  of  FIR 
filter  is  the  special  case  of  the  second-order  section  of 
HR  filter  in  which  all  the  poles  are  located  at  z=0. 

Parallel  Form 

One  of  the  important  parameters  in  digital  filter 

implementation  is  the  computation  time  required  to  get  the 

output  response  from  the  given  input  which,  in  turn,  depends 

on  the  operational  speed  of  each  device  used  between  the 

input  and  the  output.  When  the  speed  is  important  in 

implementation,  parallel  form  is  very  convenient. 

Parallel  form,  similar  to  cascade  form,  is  obtained 

by  partial  fraction  expansion  of  the  transfer  function  H(z), 

—2  - 1 

into  numerous  second  order  factors  involving  the  powers  z  ,  z  , 
and  z“®.  Each  one  of  these  second-order  factors  is  then  realized 


as  a  second  order  filter  section.  Instead  of  cascading, 
connecting  in  parallel  of  these  sections  results  in  the 
required  digital  filter. 

HR  Filters.  Digital  filter  transfer  function  H(z) 
given  by  Equation  (2-22)  can  be  expressed  as  a  partial- 
fraction  expansion  in  the  form 

M 

H(z)  -  Z  H. (z)  (3-9) 

i-1  1 

where  H^(z)  is  of  the  same  form  as  given  by  Equation  (3-6) 
These  second-order  transfer  functions  Hi(z)  are 
then  connected  in  parallel.  The  result  is  the  filter 
structure  shown  in  Figure  7. 

FIR  Filters.  Digital  filter  transfer  function  H(z) 
given  by  Equation  (2-25)  can  be  expressed  as  a  partial 
fraction  expression  in  the  form: 

M 

H(z)  =  Z  H.(z) 
i=l  1 

where  H^(z)  is  the  same  as  Equation  (3-8).  The  corres¬ 
ponding  structure  is  shown  in  Figure  8. 

Nested  Structure 

The  direct  form,  as  expressed  before,  is  generally 
more  sensitive  to  the  effects  of  coefficient  quantization 
in  fixed-point  implementation,  if  the  dynamic  range  of  the 


Form  for  FIR  Digital  Filters 


coefficients  is  large  (as  is  typically  the  case).  The 
cascade  form,  on  the  other  hand,  reduces  the  dynamic  range 
and  thereby  decreases  sensitivity.  But  the  realization  in 
the  latter  case  is  more  complicated  because  care  must  be 
taken  to  properly  order  various  sections  to  avoid  overflow 
and  to  minimize  roundoff  noise. 

Nested  structure  promises  to  be  an  easy  and  attrac 
tive  solution  to  the  finite  word  length  problems  [13].  The 
transfer  function  of  a  nested  structure  filter  can  be 
easily  derived  by  the  nesting  of  the  direct  form  transfer 
function  H(z)  as  shown  below. 

HR  Filters.  Instead  of  writing  the  summation  in 
natural  form,  as  shown  in  Equation  (2-22),  let  it  be 
arbitrarily  permuted.  Thus 


H(z) 


M  -Pk 

E  b  Z 
k»0  pk 

- N - : 

1  +  Z  a„  Z 
k=l  pk 


where  pfc  ’s  are  the  permuted  elements  of  the  set  (0,1,2,. 
Equation  (3-10)  can  be  rewritten  in  the  form 


where 


=  b. 


;0 


'k  b 


,  k  -  1, . . . ,M 


Pk-1 


d„  =  a 


“k  - 


,  k  =*  2,  .  .  .  ,N 


(3-12) 


Jk-1 


Equation  (3-11)  can  be  written  in  alternative  form 


-Po 


-P- 


PM. 


H(z)  = 


CqZ  (1  +  C^  (1  +  •••  +  CjjZ  )...) 


“Pi  - Po  “Pm 

1  +  dxz  ■L(l  +  d2z  *(1  +  ...  +  d^z  )...)  (3-13) 


Corresponding  filter  structure  for  Equation  (3-11) 
is  shown  in  Figure  9  for  the  case  M  =  N  . 

FIR  Filters.  Similar  to  the  HR  case,  Equation  (2-25) 
can  be  permuted  to  obtain: 


M  -p 

H(z )  =  I  b  z  K 
k=0  pk 


(3-14) 


Equation  (3-10)  can  be  rewritten  in  an  alternative  form: 


-Po 


-P- 


PM. 


H(z)  =  en(z  +  e,(z  +  ...+  e^z  )...) 


(3-15) 
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bf.v'.v. . 


IR  Dig 


where 


en  =  b« 
0  p. 


en  " 


,  n  =  1  to  M 


(3-1 


Equation  (3-15)  can  be  expressed  in  a  slightly  different 
form  as  follows: 


-P0  "Pi  -Pm 

H(z )  =  eQz  U(1  +  e±z  A(1  +  ...  +  eMz  “)...) 


(3-1 


Corresponding  filter  structure  for  Equation  (3-15)  is  shown 
in  Figure  10. 


Cascade-Nested  Form 

Similar  to  the  direct  form,  the  equation  for  a 

nested  structure  transfer  function  can  be  factored  into 
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numerous  second  order  factors  involving  the  powers  z  ,  z 
and  z°.  Each  one  of  these  second  order  polynomials  is  then 
realized  as  a  second  order  filter  section.  Cascading  these 
sections  result  in  the  required  digital  filter. 

HR  Filters.  Nested  filter  transfer  function  H(z), 
expressed  by  Equation  (3-11)  can  be  factored  into  a  product 
of  second  order  transfer  functions  as 


H(z)  =  n  H. (z) 
i=l  1 


Figure  10.  Nested  Structure  for  FIR  Digital  Filter 


FIR  Filters.  Similar  to  IIR  filters,  nested  filter 
transfer  function  H(z)  expressed  by  Equation  (3-15)  can  be 
factored  into  a  product  of  second  order  transfer  functions 
as 


M 

H(z)  -  n  H. (z) 
i=l  1 


where 


H.(z)  = 


e0(z 


-Po 


e1(z 


-P- 


+  e, 


v . 

,z  ) ) 


Corresponding  filter  structure  is  shown  in  Figure  12. 


Parallel-Nested  Form 

Similar  to  cascade  form,  parallel  form  is  obtained 

by  expanding  the  nested  structure  transfer  function  equations 

-2 

into  numerous  second  order  factors  involving  the  power  z  , 
z~\  and  z®.  Each  one  of  these  second-order  factors 
is  then  realized  as  a  second  order  filter  section.  Instead 
of  cascading,  as  above,  connecting  these  sections  in  parallel 
results  in  the  required  digital  filter. 

HR  Filters.  The  nested  filter  transfer  function 
H(z)  given  by  Equation  (3-11)  can  be  expressed  as  a  partial 
fraction  expansion  in  the  form 

M 

H(z)  =  Z  H.  (z) 
i=l  1 

where  H^(z)  is  the  same  as  Equation  (3-18). 

Corresponding  filter  structure  is  shown  in  Figure  13. 
FIR  Filters.  Similar  to  IIR  filters,  nested  filter 
transfer  function  H(z)  expressed  by  Equation  (3-15)  can  be 
expressed  as  a  partial  fraction  expansion  in  the  form 

M 

H(z)  ■  I  H. (z) 
i-1  1 

where  H^(z)  is  the  same  as  Equation  (3-18). 

Corresponding  filter  structure  is  shown  in  Figure  14. 


Sensitivity  Analysis 

The  sensitivity  is  commonly  defined  as  "Any  change 
in  the  component  characteristic  that  causes  a  change  in  the 
transfer  function."  In  digital  filter  implementation,  the 
desired  transfer  function  is  calculated  on  the  basis  of  inf  inite 
precision  arithmetic.  But,  in  actuality,  all  the  components, 
like  multipliers,  storage  devices,  and  adders,  work  with 
finite  number  of  bits.  This  fact  will  cause  the  change  in 
the  transfer  function  of  the  digital  filter  which  is  calcu¬ 
lated  based  on  infinite  precision.  This  change  is  known  as 
the  sensitivity  of  the  transfer  function  and  is  given  by: 

Sa  {  |H(z)  |  }  =  Re{Sa^H(z) }  »  Re{1f^|T  (3-19) 

where  H(z)  is  the  transfer  function  of  the  digital  filter,  and 
is  the  system  parameter  that  varies.  There  are  many 
different  criteria  of  sensitivity  that  have  been  used  in 
digital  filter  implementation.  However,  the  fractional 
change  in  the  transfer  function  magnitude  due  to  a  change  in 
the  multiplier  coefficients,  or  the  change  in  the  location  of 
the  poles  due  to  change  in  the  multiplier  coefficients  are, 
in  most  cases,  reasonable  criteria  of  sensitivity. 

As  we  pointed  out  earlier  in  this  chapter,  different 


filter  structures  for  the  same  transfer  function  have  dif¬ 
ferent  response  characteristics.  In  other  words,  sensitivity 
of  a  digital  filter  depends  heavily  upon  the  particular 


realization.  We  next  examine  the  sensitivity  versus  realiza 
tion  relationship  for  the  various  realizations  discussed  so 
far  in  this  thesis. 


Sensitivity  Analysis  in  HR  Filters 

Direct  Form.  Let  us  rewrite  Equation  (2-22)  as: 


H(z) 


M 

Z  b.  z 
k=0 


-k 


N 

1  +  Z  a,  z 
k=  1  K 


-k 


The  multiplier  coefficient  ak  and  bk  will  be  quantized 
to  afc  and  bfc  .  Thus , 


ak  -  ak  -  Aak 

bk  -  bk  -  Abk  (3-20) 


where  Aak  and  Abk  are  error  quantities  which  are 
tically  independent  and  uniformly  distributed  [10] . 
fore,  the  realized  transfer  function  will  be 


stat  is- 
There- 


H(z ) 


UL  • 

/v  _  lr 

Z  b.  z  K 
k=0  K 

N  . 
1  +  Z  a.  z“ 
k-1  K 


(3-21) 


If  we  let  y(n)  denote  the  actual  filter  output  and  let 
y(n)  denote  the  ideal  filter  output  due  to  the  same  input 
x(n)  ,  then  by  using  Equation  (2-20)  the  error  e(n)  in  the 


two  outputs  is  given  by 


e(n )  =  y(n)  -  y(n)  (3-22) 


or 


M  N 

e(n)  =  Z  Ab.x(n-k)  -  Z  a.e(n-k) 
k=0  K  k=l  K 

N  N 

Z  Aa.y(n-k)  -  Z  Aa.e(n-k)  (3-23) 

k=l  K  k=l  K 


Assuming  that  the  error  e(-)  and  the  quantization  errors 
Aafc  are  small,  the  last  term  in  Equation  (3-23)  can  be 
neglected.  Furthermore,  if  we  let  M  equal  to  N,  Equation 
(3-23)  can  be  written  as 


N  N  N 

e(n)  =  Z  Ab.x(n-k)  -  Z  a.  e(n-k)  -  Z  Aa.y(n-k)  (3-24) 
k=0  k=l  k=l 


Combining  and  taking  the  Z-transform  of  Equation  (3-22)  and 
Equation  (3-24)  will  give 


N  _k  N 

y(z)  -  y (z)  ■  Z  Abtz  x(z)  -  Z  a.z 
k=0  k=l 


N  -k 

•  (y(z)  -  y(z))  -  2  Aa.z  y(z)  (3-25) 

k=  1 


If  we  substitute  y(z)  *  H(z)X(z)  and  y(z)  =  H(z)X(z) 


into  Equation  (3-25),  the  resulting  equation  can  be  arranged 


H(z)  -  H(z )  = 


Z  Ab.z  -  E  Aa.z  ~H(z) 
k=0  k=l  K 


1  +  Z  a,  z" 
k=l  K 


(3-26) 


Here  H(z)  -  H(z)  is  a  measure  of  the  deviation  of  the 
frequency  response  of  the  actual  filter  from  the  frequency 
response  of  the  ideal  filter.  In  filter  implementation, 
one  possible  measure  of  the  effect  of  coefficient  quantiza¬ 
tion  is  the  mean-square  error  in  the  frequency  response,  and 

A 

can  be  defined  in  terms  of  H( • )  and  H( • )  as 


H 

=  /  |H(e^w)  -  H(eJW)|2d  (3-27) 


where  H(eJU)  and  H(eJW)  denote  the  quantized  and  ideal 
frequency  response  of  the  transfer  function,  respectively. 
Using  the  assumed  statistical  independence  among  Abfc  and 
Aak  ,  and  substituting  Equation  (3-26)  into  (3-27),  the  last 
equation  reduces  to 


".^21  f  1  dz 

kio  k  57  /  i  5  IkTT  5  k\ 2 

K-Az  7  (1+k^z 7 


+  Z  4a 


2  1 
k  Utt 


Z  bkz"k)  l  Z  bkzk 
k=0  K  I  \  k=0  K 


1+  Z  avz 
k=l  K 


1+  Z  a.  z 
k-1  K 


.  \  _  z 
k)  2 


(3-28) 


Equation  (3-28)  may  be  evaluated  to  any  degree  of  accuracy 
using  a  short  digital  computer  program  based  on  Figure  15. 


Figure  15.  Technique  for  Measuring  Variance  of 
Error  Due  to  Coefficient  Quantization 


If  the  quantization  is  carried  out  by  rounding  with 
quantization  in  steps  of  q,  then  Abk  and  Aak  can  assume 
any  value  at  random  in  the  range  -  ^  to  +  ^  ;  that  is, 

Abfc  and  Aak  are  uniforraally  distributed  between  -  ^  to 
+  .  The  quantization  step  q  is  equal  to  2-t  ,  where  t  is 

the  number  of  bit  used  in  the  register  to  store  the  number. 
Since  the  probability  density  p(*)  of  Aak  or  Abk  is 
assumed  to  be  uniform,  we  have 

(  i  lor  -  f  s  4ak  s  § 


p(Aak)  =  p(Abk) 


0 


otherwise . 


(3-29 


as  well  as 
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pointed  out  that  small  errors  in  the  coefficients  can  cause 
large  shifts  in  the  poles  (or  zeros)  of  the  direct  form 
narrow-band  HR  digital  filters  [11].  To  see  this,  let  us 


suppose  that  the  poles  of  H(z)  are  located  at  z=zi  , 
i=l,2,...,N  and  that  the  poles  of  H(z)  are  located  at 
z=z^+Azi  ,  i=l,2,...,N  .  Furthermore,  let  us  rewrite  the 

denominator  of  Equation  (2-22)  in  factored  form  as 


p(z) 


1  - 


N 

L 

k=l 


V 


-k 


n  (1  -  a,  z~L) 
k=l  K 


(3-34) 


The  error  Azi  can  be  expressed  in  terms  of  the  errors  in 
the  coefficient  as 


N  3z. 

^ 


i-1,2, . . . ,N 


(3-35) 


Using  Equation  (3-34): 


9p(z) 


3P(Z 
dZ  . 


1  /  T»— 7 

~-Z. 
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3  a, 


_  ( 3  C.P  (  z  )  )j 
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z=Zi 


N-k 


N 

n  (z.=z£.) 
£=1  1 


m 


(3-35) 


The  poles  of  some  H(z)  are  shown  in  Figure  16  for  discus¬ 
sion.  The  magnitude  of  the  denominator  of  Equation  (3-36) 
is  equal  to  the  product  of  the  lengths  >f  the  vectors  from 
all  the  remaining  poles  to  the  pole  z ^  shown  in  Figure  16 


Figure  16.  Representation  of  the  Factors  of 
Equation  (3-40)  as  vectors  in  Z-Plane 

If  the  poles  are  very  close  to  each  other,  then  small  changes 
in  coefficients  will  cause  relatively  large  changes  in  the 
location  of  poles.  In  other  words,  system  will  be  too 
sensitive  to  coefficient  change.  Furxhermore,  it  is  evident 
that  the  larger  the  number  of  roots,  the  greater  is  the 
sensitivity. 

Cascade  Form.  The  actual  transfer  function  of  digi¬ 
tal  filter  realized  in  cascade  form  can  be  expressed  as 

~  N  „ 

H(z )  =  n  H.  (z) 


(3-37) 


where 


^  "N  _  *1  /N  __  O 

b0i  +  bliz  +  b2iz 
- 1  -2 

1  +  aiiz  +  a2iz 


(3-38) 


and  N  equals  number  of  second  order  section.  Each  second- 
order  section  contributes  an  uncorrelated  error  component 
as  described  by  Equation  (3-32),  and  the  total  output  error 
is  obtained  by  summing  these  various  errors  weighted  by  the 
transfer  function  from  their  point  of  injection  to  their 
respective  outputs. 

o 

The  output  mean-squared  error  can  be  easily 

0 

computed  as  follows  by  using  the  error  model  given  in 
Figure  17. 


Figure  17.  Error  Model  for  Cascade  Form 
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(3-39) 


where 


2 

AH„ 


can  be  found  from  Equation  (3-31)  by  letting 


N**2  ,  H^(z)  is  the  transfer  function  between  the  output  of 

the  jth  second  order  section  and  its  input.  Comparison  of 
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a.„  with  a.„  is  made  by  Knowles  and  Olcayto  [12]. 

AHC  AHD 

Since  each  pair  of  complex- conjugate  poles  is 
realized  separately,  the  error  in  a  given  pole  is  indepen¬ 
dent  of  its  distance  from  the  other  poles  of  the  system. 

For  this  reason,  cascade  form  is  to  be  preferred  over  the 
direct  form  in  the  implementation  of  narrow-band  HR  digital 
filter. 

Parallel  Form.  The  actual  transfer  function  of 
digital  filter  formed  in  parallel  can  be  expressed  as 

„  N  A 

H(z)  =  Z  H. (z)  (3-40) 

i=l  1 

A 

where  H^z)  and  N  are  the  same  as  in  the  Equation  (3-37). 

.  As  we  expressed  in  cascade  case,  each  second-order 
section  contributes  an  uncorrelated  error  component  as 
described  in  Equation  (3-30)  and  the  output  error  is  simply 
the  sum  of  the  various  errors  from  the  second  order  sections. 
In  Figure  18,  the  error  model  is  shown  for  the  parallel  form. 
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The  output  mean  squared  error  can  be  easily  computed 
using  the  error  model  given  in  Figure  18. 


N 


’AHt 


=  I(o 


j  =  l 


aht 


(3-41) 


where  oAtT  is  the  error  in  parallel  form  realization  and 

AHp 


N  is  the  number  of  second  order  sections.  Parallel  form 
is  to  be  preferred  over  the  direct  form  in  the  implementa¬ 
tion  of  narrow-band  HR  digital  filter  because  of  the  same 
reasons  given  for  the  cascade  form. 

Nested  Structure.  The  nested  structure  transfer 


function  was  derived  in  the  last  section.  Let  us  rewrite 
it  below  for  convenience. 


-Po 


“Pi 


H(z  ) 


C-.(z  w  +  c-(z  *  + 


~PM 

♦  CjjZ  M)  ...) 


-pl 

1  +  d^z  +  d2(z 


-P2 


-Pv 

♦  c^z  ")...) 


where 


Pk-1 


,  k=l,2 . M 
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so  that 


k 

b  =  n  c  k=l, 2 , .  .  .  ,M 

pk  n=0  n 

k 

a  =  n  d  k-2,3 . N  (3-4 

pk  n=0  n 


When  the  nested  structure  filter  coefficients  cfc  and  dfc 

are  rounded,  the  realized  filter  will  have  an  effective 

b  's  and  a  's  given  by 
pk  pk 


,  k**l,2,  . .  .  ,M 

,  k=2 , 3 , . . . ,N  (3-4 

where  "A"  denotes  the  effective  value,  and  the  subscript  r 

denotes  the  rounding  operation. 

The  relative  errors  bp  and  ap  ,  given  by 

k  k 

E. /b  and  E.  /a_  respectively,  tend  to  grow  with  k  , 

K  pk  K  pk 

due  to  the  cumulative  errors  in  Cq  through  cfc  and  in 
d1  through  d,  .  Therefore,  we  redefine  ck  's  and  dk  ' 


k-1 


n  Ccn>r 
n=0  n  r 


d„  =  a. 


a_ 


a. 


d,_  = 


k-1 


pk-l 


n  Cdn)r 

n=0 


Now,  the  effective  b_  becomes 


k-1 


,  k=2 , 3, . . .  ,N 


(3 


-  n  Cc  )  Cck) 
pk  n=0  n  r  K  r 


(3 


where 


(c^) ^  —  cfc  +  Ek  1 , 2 , . . . ,M  (3 

where  ek  is  the  rounding  error.  By  combining  Equations 
(3-46)  and  (3-44)  and  substituting  into  Equation  (3-45), 
we  get 


,  will  be 


Therefore,  the  error  in  coefficients 


Eb  =  ek  »  (3-48) 

°k  pk-l  K 


Similarly,  the  error  in  coefficients 
with  the  result 


can  be  derived, 


Eo  -  1  e,  ,  k=2 , 3 ,  .  .  .  , N  (3-49) 

ak  pk-l  k 


The  mean-square  error  in  the  frequency  response  can  be 

derived  from  Equation  (3-28).  In  Equation  (3-48),  E.  , 

Dk 

and  in  Equation  (3-49),  E  ,  are  equal  to  Ab,  and  Aa  , 

ak  K  K 

respectively.  If  we  substitute  Equations  (3-48)  and  (3-49) 

into  Equation  (3-28)  and  assume  that  M  equals  N  for  simplicity 

2 


then  the  mean  square  error  a 
nested  structure  will  become 


AHND 


for  the  direct  form 


'AH. 


ND 


N  A 

2  (b_  ek) 
k=0  pk-l  K 


IT 


/ 


dz 


N  ■  k  N  ~  z 

-*  -TT  (1+  E  a.z  K)(l+  E  a.  zK) 
k=  1  K  k=l  K 


N 

E  (ap  ^ 

k»l  pk-l  K 


/  N  v\ 

/  N  k) 

1 

IT 

f  . 

)l 

E  V  J 

l  k=0  K  / 

dz 

2tt 

J 

-IT 

K>k) 

(1+k=iakzk) 

z 

(3-50) 

Similarly,  cascade  and  parallel  form  nested  structure  can 

be  derived  using  the  above  procedure.  The  resulting  mean 

o 

_  »  _  _  _ —  “  *  —  »  „  J  _  _  J  J. _  _ !  in  1 


square  error  a. 


for  cascade  nested  structure  will  be 


AHNC  >1 


N-l  ^aAH  ^ 
**  ailND 


(z)H^ (z_1) 


(3-51) 


i  2 

where  (aAWJ  )  can  be  found  from  Equation  (3-50)  by  letting 
.  nnND 

N=2.  HJ(z)  is  the  transfer  function  between  the  output  of 
the  jth  second  order  section  and  its  input.  The  same  error 
model  for  computation  can  be  used  as  shown  in  Figure  17. 


Similarly,  the  result  for  parallel-nested  structure 


will  be 


2  “  ,  i  n2 

C«TT  *  E  C  ^  All  ) 

AHNP  j  =  l  ahnd 


(3-52) 


where  a„  is  the  error  in  parallel  form  realization. 
nNP 

Figure  18  can  be  used  for  error  model . 


Sensitivity  Analysis  in  FIR  Filters 


Direct  Form.  The  transfer  function  of  an  FIR  filter 
is  given  in  Equation  (3-3).  Let  us  rewrite  the  above 
equation  for  convenience  below. 


H(z)  -  Z  h(k)z* 


>V 


After  hk  's  are  quantized,  the  realized  transfer  function 
will  be 


H(z)  -  I  h(k)z* 
k=0 


(3-53) 


As  before,  the  measure  of  the  effect  of  coefficient 
quantization  is  the  error  in  the  frequency  response  which  is 
denoted  as 


|E(eju))|D  =  |H(eJU))  -  H(ejw) 


(3-54) 


Therefore, 


|E(eJW)|n  =  Z  Ah(k) 
u  k=0 


(3-55) 


Since  |Ah(k)|  <  q/2  ,  where  q  is  quantization  step, 


|E(eJw)|n  <  N  q/2 


(3-56) 


Cascade  Form.  The  actual  transfer  function  of 
digital  filter  formed  in  cascade  can  be  expressed  as 


H(z )  =  n  H.(z) 


(3-57) 


where  H. (z)  ■  bn  +  b-  z~^  +  b„  z  2 
1  i  1i  Zi 


(3-58) 


and  N  is  the  nvimber  of  second  order  section. 


Denoting  by  |E(e'^aj)|(^  the  error  in  the  frequency 
response  of  this  loiter  due  to  quantization,  we  can  write 

|  E(eJai)  |  =  Z  |E1(eJw)i|  !  Hi(eJa)) !  (3-59) 

c  i=l  L 

where  E*(e^u)  can  be  found  from  Equation  (3-55)  by  letting 
M=2  ;  Hi(e^w)  in  the  above  equation  is  the  transfer  func- 

4.  u 

tion  relating  the  output  of  the  i  second-order  section  to 
its  input. 

Parallel  Form.  The  actual  transfer  function  of 
digital  filter  implemented  in  the  parallel  form  can  be 
expressed  as 


H(z)  -  Z  H.  (z)  (3-60) 

i=l  1 

vs 

where  Hi(z)  and  N  are  the  same  as  in  Equation  (3-58). 

The  output  error  in  frequency  domain  is  simply  the  sum  of 
the  various  errors  from  the  second  order  sections.  Thus, 
denoting  by  |E(eJtu)|p  the  error  in  the  frequency  of  this 
filter  due  to  quantization,  we  get 

|E(e^  )|p  =  ^ZjE  (e^  )|D  (3-61) 

where  |E*(e^w) |D  is  the  same  as  in  Equation  (3-59). 

Nested  Structure.  The  nested  structure  filter 


transfer  function  was  derived  in  the  last  section.  Recall 


that  the  transfer  function  was  expressed  in  Equation  (3-14) 
and  the  nested  form  transfer  function  was  given  in  Equation 
(3-15).  Let  us  rewrite  these  equations  below  for  convenience 

M  -p 

H(z )  =  Z  b  z  K  (3-62) 

k=0  pk 

“Pn  — P 1  — Pu 

H(z )  =  eQ(z  u  +  e x ( z  -1  +  .  .  .  +  eMz  M)  (3-63) 

where 


so  that 


n 


n  e 

k=0 


k 


(3-64) 


The  relative  error  in  b  is  given  by  t-2—  , 

”  Pn 

where  E  ■  b  -  b  tends  to  grow  with  n  ,  due  to 
n  d  d 
*n  ^n 

cumulative  errors  in  eQ  through  en  .  Therefore,  we 


redefine  e„  ' s  as  follows: 


(3-65) 


pn-l  J  <V 


k=0 


where  stands  for  effective  value  and  "r"  stands  for 

rounding  operation  in  Equation  (3-65).  Thus 


(e)  =  e_+  e„ 

nr  n  n 


(3-66) 


where  en  is  the  rounding  error  and  is  the  same  as  explained 


in  HR  section.  The  effective  b  now  becomes. 

pn 


n-1 


b  =  I  (e  )  (e  )  =  b 


n 


n  k=0 


n'r  '  n'r  p 


+  e 


n-1  b 


n 


pn-l 


(3-67) 


The  error  in  coefficient  b  's  will  be 

pn 


E_  =  6_  -  b. 


n  p  p 
*n  *n 


E„  =  b_  e. 


n  pn-l  n 


(3-68) 


Then  the  error  quantity  in  frequency  response  can  be  com¬ 
puted  as 


E(eJu)  =  H(ejw)  -  H(eja>) 


E(eJW)|  =  z  (6 


M 


(3-69) 


Summary 


This  chapter  was  directed  toward  the  realization  and 
the  related  cause  of  sensitivity  of  digital  filters.  A 
number  of  structures,  such  as  direct,  cascade,  parallel, 
nested,  cascade-nested,  and  parallel-nested,  were  presented 
for  HR  and  FIR  filters. 

One  of  the  most  important  considerations  in  the 
choice  of  a  structure  (realization)  for  implementation  of 
a  filter  is  the  low  sensitivity.  Thus,  we  presented  the 
sensitivity  analysis  for  the  various  structures  mentioned 


above . 


IV .  Simulation  of  Digital  Filters 

Introduction 

In  this  chapter  we  will  simulate  the  FIR  digital 
filters,  discussed  in  previous  chapters,  using  many  different 
word  lengths.  The  input-output  relationship  of  the  FIR 
digital  filters  are  given  by  Equation  (2-23).  First,  FIR 
digital  filter  coefficients  and  input  in  this  equation  will 
be  obtained  according  to  user  requirements.  The  input, 
which  is  designed  such  that  its  values  are  all  positive  to 
handle  the  two's  complement  addition  easily,  can  be  step, 
multiple-step  or  sinusoidal  function.  Second,  these  coef¬ 
ficients  and  input  will  be  scaled  to  prevent  the  overflow 
at  the  output  of  the  digital  filter.  The  absolute  maximum 
value  of  the  scaled  input  signal  will  be  less  than  .1. 

Since  the  scaling  technique  for  coefficients  depends  on  the 
type  of  filter,  it  will  be  discussed  in  the  Simulation  I  sec¬ 
tion.  Third,  all  the  numbers  pertaining  to  the  filters  will 
be  quantized  according  to  user  requirements  by  either 
truncation  or  rounding.  Finally,  the  simulation  results 
depicting  filter  outputs  will  be  obtained  based  on  these 
quantized  data. 

Simulation  I 

Tho  FIR  digital  filters  will  be  simulated  based  on 


10  bits  word  length  register.  The  input  function  to  all 


the  digital  filters  for  simulation  I  will  be  the  same  as 
shown  in  Figure  19.  Corresponding  input  values  for  20  points 
is  shown  in  the  first  column  of  Table  I.  The  quantized 
input  is  shown  in  the  second  column  and  the  scaled  version 
of  the  input  appears  in  the  third  column  of  the  same  table. 


TABLE  I 

x 

INPUT  SEQUENCES 

A 

. 1000000E 

00 

*S 

. 9960938E-01 

X 

— S 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

.  9960938E-01 

. 1 000000E 

00 

. 1000000E 

00 

.9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

. 9960938E-01 

. 1000000E 

00 

. 1000000E 

00 

.9960938E-01 

. 1000000E 

00 

. 0000000E 

00 

. 0000000E  00 

.OOOOOOOE 

00 

. 0000000E 

00 

. 0000000E  00 

.OOOOOOOE 

00 

. 0000000E 

00 

. 0000000E  00 

.OOOOOOOE 

00 

. 0000000E 

00 

. OOOOOOOE  00 

.OOOOOOOE 

00 

. 0000000E 

00 

. 0000000E  00 

•OOOOOOOE 

00 

. 0000000E 

00 

.OOOOOOOE  00 

.OOOOOOOE 

00 

. 0000000E 

00 

.OOOOOOOE  00 

.OOOOOOOE 

00 

. 0000000E 

00 

.OOOOOOOE  00 

.OOOOOOOE 

00 

. 0000000E 

00 

.OOOOOOOE  00 

.OOOOOOOE 

00 

. 0000000E 

00 

.OOOOOOOE  00 

.OOOOOOOE 

00 

Direct  Form.  The  fourth  order  low-pass  FIR  digital 
filter  coefficients  with  the  normalized  cut-off  frequency  of 
.17  are  obtained  by  using  a  rectangular  weighting  window. 
Then,  these  coefficients  are  scaled,  such  that  the  summation 
of  the  absolute  value  of  the  coefficients  is  less  than  .1, 
to  prevent  overflow.  Finally,  the  scaled  coefficients  are 
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quantized  according  to  user  requirements  by  either  trunca¬ 
tion  or  rounding.  Corresponding  coefficient  values  are 
shown  in  Table  II.  The  designed  coefficients  appear  in  the 
first,  the  quantized  coefficients  in  the  second,  and  the 
scaled  coefficients  in  the  third  columns  of  the  table. 


TABLE  II 

COEFFICIENT  FOR  DIRECT  FORM 


b 

.  1343790E 

00 

A 

^S 

. 9765625E-02 

*s 

.  1119825E-01 

.  2789370E 

00 

. 2148438E-01 

. 2324475E-01 

. 3400000E 

00 

.  2734375E-01 

.  2833333E-01 

.  2789370E 

00 

.  2148438E-01 

. 2324475E-01 

.  1343790E 

00 

.9765625E-02 

.  1119825E-01 

The  expected  output  denoted  by  yexp(n)  can  be  cal¬ 
culated  by  using  the  equation  below. 


M 

yexD(n)  =  1  x  (n-k) 

exp  k=0  sk  s 


(4-1) 


where  b  and  x  are  the  quantized  and  scaled  coefficients; 
s  s 

and  M  is  the  number  of  coefficients.  The  expected  output 
for  steady-state  case  is  shown  in  Table  XIII. 

/v 

The  actual  output  denoted  by  y£LCi(n)  can  be  calcu¬ 
lated  by  using  the  equation  below.  The  above  equation  is 
very  simular  to  Equation  (4-1);  however, 


The  numbers  used  in  Equation  (4-2)  are  all  binary.  These 


numbers  are  shown  in  Table  III.  The  first  column  is  x  , 

s 

the  second,  b  ,  and  the  third,  y  . . 

s  act 


TABLE  III 

BINARY  NUMBERS  RELATED  TO  EQUATION  (4-2) 


A 


^act 


0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


0000000101 

0000001011 

0000001110 

0000001011 

0000000101 


000000000001111111100 

000000000110011000000 

000000001110000101000 

000000010010011101100 

000000010100011101000 

000000010100011101000 

000000010100011101000 

000000010100011101000 

000000010100011101000 

000000010100011101000 

000000010010011101100 

000000001110000101000 

000000000110011000000 

000000000001111111100 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


Corresponding  real  numbers  in  the  first  column  in 
Table  III  will  be  used  to  plot  the  actual  output  which  is 
shown  in  Figure  20.  The  actual  output  for  steady-state  is 
shown  in  Table  XIII. 

Cascade  Form.  As  we  mentioned  in  the  previous 
chapter,  the  cascade  form  can  be  obtained  by  factoring  the 
direct  form  transfer  function.  The  digital  filter  studied 


for  direct  form  can  be  factored  into  two  second  order  digital 
filters.  Corresponding  coefficient  values  are  shown  in 
Table  IV  in  the  same  way  as  in  Table  II  for  each  second- 
order  section. 


TABLE  IV 

COEFFICIENTS  FOR  CASCADE  FORM 
a.  First  Second-Order  Section 


*s 


. 1000000E  01 
. 1777000E  01 
. 9999990E  00 


. 2539063E-01 
. 4492188E-01 
. 2539063E-01 


. 2631579E-01 
. 4676317E-01 
. 2631576E-01 


b.  Second  Second-Order  Section 

A 

b_ 


. 1343790E  00 
. 4007000E-01 
. 1343790E  00 


. 3320313E-01 
. 9765625E-02 
. 3320313E-01 


. 3359476E-01 
. 1001750E-01 
. 3359476E-01 


The  steady-state  expected  and  actual  output  for 
each  second-order  section  can  be  calculated  by  using 
Equation  (4-1)  and  (4-2),  respectively.  The  number  of 
coefficients  denoted  by  M  in  both  equations  is  two.  The 
steady-state  expected  and  actual  output  of  the  first  second- 
order  section  will  be  the  quantized  input  to  the  next  second- 
order  section.  The  steady-state  expected  and  actual  output 
of  the  last  section  will  be  the  steady-state  expected  and 
actual  output,  respectively.  The  steady-state  expected 
output  is  shown  in  Table  XII  and  the  corresponding  binary 


values  of  each  second-order  section  input,  coefficients, 
and  actual  output  in  Table  V  in  the  same  way  as  in  Table  III. 

Corresponding  real  numbers  in  the  third  column  in 
Table  Vb  will  be  used  to  plot  the  actual  output  which  is 
shown  in  Figure  21.  The  actual  output  for  steady-state  is 
shown  in  Table  XIII. 

Parallel  Form.  Each  second-order  section  coeffi¬ 
cients  shown  in  Table  IV  are  the  same  as  for  cascade  form. 

The  steady-state  expected  and  actual  output  is  also  calcu¬ 
lated  in  the  same  way.  But  the  steady-state  expected  and 
actual  output  for  parallel  form  will  be  the  summation  of  the 
steady-state  expected  and  actual  output  for  each  second- 
order  section,  respectively.  The  steady-state  expected  out¬ 
put  is  shown  in  Table  XII  and  the  corresponding  binary  num¬ 
ber  values  for  the  second  second-order  section  input, 
coefficients  and  actual  outputs  are  shown  in  Table  VI,  using 
the  same  scheme  as  the  one  for  Table  III.  The  actual  output 
of  parallel  filter  is  also  shown  in  Table  VI.  The  first 
second-order  section  binary  number  values  are  the  same  as 
shown  in  Table  Vb. 

Corresponding  real  numbers  in  Table  VIb  will  be  used 
to  plot  the  actual  output  which  is  shown  in  Figure  22.  The 
actual  output  for  steady-state  is  shown  in  Table  XIII. 

Nested  Form.  The  filter  coefficients  studied  for 
direct  form  will  be  used  to  get  the  nested  filter  coefficient 
denoted  by  e.  using  the  following  equation. 


TABLE  V 


BINARY 


x 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


NUMBERS  RELATED  TO  EQUATION  (4-2) 
FOR  CASCADE  FORM 


First  Second-Order  Section 


0000001101 

0000010111 

0000001101 


^act 

000000000110110001100 

000000001000110001000 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001111100010100 

000000001000110001000 

000000000110110001100 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


TABLE  V  (continued) 


0000000001 

0000000010 

0000000011 

0000000011 

0000000011 

0000000011 

0000000011 

0000000011 

0000000011 

0000000011 

0000000011 

0000000010 

0000000001 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


Second  Second-Order  Section 


6 


s 


0000010001 

0000000101 

0000010001 


yact 

000000000000001101000 
000000000000100010100 
00000000000011 1111100 
000000000001010011110 
000000000001011111000 
000000000001011111000 
000000000001011111000 
000000000001011111000 
000000000001011111000 
000000000001011111000 
000000000001011111000 
000000000001010011110 
000000000000111111100 
000000000000100010100 
000000000000001101000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 


TABLE  VI 


BINARY  NUMBERS  RELATED  TO  EQUATION  (4-2) 
FOR  PARALLEL  FORM 


A 


y 


act 


0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


0000010001 

0000000101 

0000010001 


000000000101001011100 

000000001111101010000 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000010100110101100 

000000001111101010000 

000000000101001011100 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


TABLE  VI  (continued) 

Actual  Output  For  Parallel  Form 

?act 

000000000000001110011 

000000000000011111011 

000000000001000001000 

000000000001010000001 

000000000001100000010 

000000000001100000010 

000000000001100000010 

000000000001100000010 

000000000001100000010 

000000000001100000010 

000000000001100000010 

000000000001010000001 

000000000001000001000 

000000000000011111011 

000000000000001110011 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 
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where  b  is  the  scaled  coefficient  in  the  direct  form, 
s 

Then,  these  coefficients  will  be  scaled  such  that  each 
coefficient  is  less  than  one-half  the  absolute  maximum 
value  of  the  coefficients  in  Equation  (4-3)  to  prevent  over 
flow.  The  nested  filter  scaled  coefficients  denoted  by  e 

s 

are  shown  in  Table  VII. 


TABLE  VII 

NESTED  FILTER  COEFFICIENTS 
^s 

1 . 953125E-03 
.500000 
.275391 
.177734 
.109375 

The  expected  and  actual  output  can  be  calculated  by 
using  Equations  (4-4)  and  (4-5)  below,  respectively. 

e  (x  (n)  +  e  (x  (n-1)  +  ...  +  e  x  (n-M))...) 
s0  s  sx  x  sM  s 

(4-4) 

y „„+(n)  *  e  (x_(n)  +  e  (x  (n-1)  +  ...  +  e  x  (n-M))...) 


The  expected  output  for  steady-state  is  shown  in  Table  XII. 
Corresponding  binary  number  values  for  filter  input,  coef¬ 
ficients  and  actual  output  are  shown  in  Table  VIII  in  the 
same  manner  as  in  Table  XIII. 


TABLE  VIII 


BINARY  NUMBERS  RELATED  TO  EQUATION  (4-5) 
FOR  NESTED  FORM 


A 


^S 


^act 


0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


0000000001 

0100000000 

0010001101 

0001011011 

0000111000 


000000000000011001100 
000000000000011111111 
000000000000100001000 
000000000000100001000 
000000000000100001000 
000000000000100001000 
000000000000100001000 
000000000000100001000 
000000000000100001000 
000000000000100001000 
00000000000000011 1100 
000000000000000001001 
000000000000000000001 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 
000000000000000000000 


Then,  corresponding  real  numbers  in  the  third  column  in 
Table  VIII  will  be  used  to  plot  the  actual  output  which  is 
shown  in  Figure  23.  The  actual  output  for  the  steady-state 


case  is  shown  in  Table  XIII 


Actual  Output  Response 


Cascade-Nested  Form.  The  coefficients  studied  for 


cascade  form  will  be  used  to  calculate  the  cascade-nested 
form  coefficient  in  the  same  manner  as  in  the  nested  form 
discussed  above.  The  coefficients  for  each  second-order 
section  are  shown  in  Table  IX. 

TABLE  IX 

COEFFICIENTS  FOR  CASCADE  NESTED  FORM 

a.  First  Second-Order  Section 

— s 

3 . 906250E-03 

4. 296875E-02 
.500000 

b.  Second  Second-Order  Section 

5. 859375E-03 
.500000 
.158203 

The  steady-state  expected  and  actual  outputs  can  be 
calculated  by  letting  Mss2  in  Equations  (4-4)  and  (4-5), 
respectively.  The  expected  output  for  the  steady-state 
case  is  shown  in  Table  XII.  Corresponding  binary  number 
values  for  each  second-order  section  input,  coefficients 
and  actual  output  are  shown  in  Table  X  in  the  same  manner 
as  in  Table  III.  Then  the  corresponding  real  numbers  in 
the  third  column  in  Table  Xb  are  used  to  plot  the  actual 
output  which  is  shown  in  Figure  24.  As  we  can  see  easily 
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TABLE  X 


BINARY  NUMBERS  RELATED  TO  EQUATION  (4-5) 
FOR  CASCADE-NESTED  FORM 


a.  First  Second-Order  Section 


^act 


0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


0000000010 

0000010110 

0100000000 


000000000000110011000 

000000000000110101001 

000000000000110110010 

000000000000110110010 

000000000000110110010 

000000000000110110010 

000000000000110110010 

000000000000110110010 

000000000000110110010 

000000000000110011000 

000000000000110110010 

000000000000000011010 

000000000000000011010 

000000000000000011010 

000000000000000001000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


TABLE  X  (continued) 


0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


Second  Second-Order  Section 


^act 


0000000011 

0100000000 

0001010001 


000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


A  AA  AAV.  A  . 


Output  Response 


from  Table  X,  the  output  of  first  second-order  section  is 
too  small.  Therefore,  when  it  is  quantized  in  accordance 
with  the  input  word  length,  it  will  be  all  zero.  So,  the 
cascade-nested  form  will  not  give  the  actual  output  for 
short  word  length. 

Parallel-Nested  Form.  Each  second-order  section 
coefficients  shown  in  Table  IX  are  the  same  as  for  cascade- 
nested  form.  The  steady-state  expected  and  actual  outputs 
for  parallel-nested  form  will  be  the  summation  of  the  steady  - 
state  expected  and  actual  output  for  each  second-order  sec¬ 
tion,  respectively.  The  steady-state  expected  output  is 
shown  in  Table  XII  and  the  corresponding  binary  number  values 
for  the  second  second-order  section  input,  coefficients  and 
actual  outputs  are  shown  in  Table  XI.  The  actual  output  of 
parallel  filter  is  also  shown  in  Table  XI.  The  first 
second-order  section  binary  number  values  are  the  same  as 
shown  in  Table  Xa.  Corresponding  real  numbers  in  Table  Xlb 
will  be  used  to  plot  the  actual  output  which  is  shown  in 
Figure  24.  The  actual  output  for  steady  state  is  shown  in 
Table  XIII. 

Finally,  steady-state  expected  and  actual  outputs 
for  all  digital  filters  studied  in  this  section  are  shown  in 
Table  XII  and  Table  XIII,  respectively. 


TABLE  XI 


BINARY  NUMBERS  RELATED  TO  EQUATION  (4-5) 
FOR  PARALLEL-NESTED  FORM 

a.  Second  Second-Order  Section 


— s 


^act 


0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000110011 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 


0000000011 

0100000000 

0001010001 


000000000001001100100 

000000000001110010110 

000000000001111000110 

000000000001111000110 

000000000001111000110 

000000000001111000110 

000000000001111000110 

000000000001111000110 

000000000001111000110 

000000000001001100100 

000000000001111000110 

000000000000101100010 

000000000000000110000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


TABLE  XI  (continued) 

Actual  Output  for  Parallel-Nested  Form 

iact 

000000000001111111100 

000000000010100111110 

000000000010101111000 

000000000010101111000 

000000000010101111000 

000000000010101111000 

000000000010101111000 

000000000010101111000 

000000000010101111000 

000000000001111111100 

000000000010101111000 

000000000000101111100 

000000000000000111000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 

000000000000000000000 


TABLE  XII 


STEADY-STATE  y  (n)  (10  bits) 
expv  v  ' 


Direct  Form 
Cascade  Form 
Parallel  Form 
Nested  Form 
Cascade-Nested  Form 
Parallel  Nested  Form 


.00894924 

.000726138 

.0171203 

.00032389 

.00000383209 

.000133572 


TABLE  XIII 


STEADY-STATE  yact(n)  (10  bits) 


Direct  Form 
Cascade  Form 
Parallel  Form 
Nested  Form 
Cascade-Nested  Form 
Parallel-Nested  Form 


.008865625 

.0007247925 

.01396751 

.00025177 

.00000000 

.001335144 


Simulation  II 

The  steady-state  expected  and  actual  output  for  all 
FIR  filters  are  calculated  in  the  same  manner  as  in  Simula¬ 
tion  I,  based  on  16  bits  word  length.  Since  the  longer 
word  length  is  used,  the  quantized  coefficients  and  the  input 
values  will  be  very  close  to  the  ideal  values,  assumed  to 
be  the  scaled  coefficients  and  the  input.  Table  XIV  and 
Table  XV,  arranged  based  on  16  bits  word  length,  show  the 
comparison  with  Table  I  and  Table  II,  arranged  based  on  10 
bits  word  length,  respectively.  Since  the  simulation  pro¬ 
cedure  is  identical  to  the  one  carried  out  for  Simulation  I , 
only  the  result  will  be  shown  in  Tables  XVI  and  XVII. 


TABLE  XIV 


INPUT  SEQUENCES  BASED  ON  16  BIT 


x 

. lOOOOOOE  00 
. 1000000E  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
•lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
. OOOOOOOE  00 
. OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 


• 9997559E-01 
. 9997559E-01 
.9997559E-01 
. 9997559E-01 
. 9997559E-01 
. 9997559E-01 
. 9997559E-01 
. 9997559E-01 
. 9997559E-01 
. 9997559E-01 
.OOOOOOOE  00 
.OOOOOOOE  00 
•OOOOOOOE  00 
•OOOOOOOE  00 
.OOOOOOOE  00 
•OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 


•lOOOOOOE  00 
•lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
•lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.lOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
.OOOOOOOE  00 
•OOOOOOOE  00 
.OOOOOOOE  00 


table  XV 

COEFFICIENT  FOR  DIRECT  FORM 
BASED  ON  16  BIT 


b 

. 1343790E  00 
. 2789370E  00 
.  3400000E  00 
. 2789370E  00 
.  1343790E  00 


. 1116943E-01 
. 2322388E-01 
. 2832031E-01 
• 2322388E-01 
. 1116943E-01 


.  H19825E-01 
. 2324475E-01 
. 2833333E-01 
. 2324475E-01 
.  1119825E-01 


TABLE  XVI 


STEADY-STATE  y  (n)  (16  bits) 

Direct  Form  .00971404 

Cascade  Form  .000766406 

Parallel  Form  .017647 

Nested  Form  .000450728 

Cascade-Nested  Form  .00000384618 

Parallel-Nested  Form  .00134061 


TABLE  XVII 

STEADY-STATE  y  . (n)  (16  bits) 

9 »C  t 

Direct  Form  .0096896 

Cascade  Form  .0007345751 

Parallel  Form  .01429798 

Nested  Form  .0003356934 

Cascade-Nested  Form  .000003637979 

Parallel-Nested  Form  .001395954 


The  ideal  output  represented  by  y1  can  be  calculated 
by  using  the  Equation  (4-6)  for  direct,  cascade  and  parallel 
form  and  the  Equation  (4-7)  for  nested,  cascade-nested  and 
parallel-nested  form  shown  below. 


M 

yT(n)  =  Z  b  x  (n-k) 
1  k=0  sk  s 


(4-6) 


Yj (n)  =  e0(xg(n)  +  e1(xg(n-l)  +  ...  +  eMxg (n-M) ) . . . ) 

(4-7) 


where 


xg  =  scaled  input 


scaled  coefficients 


e  =  nested  filter  coefficients  before  it  is 
quantized 

Ideal-output  responses  for  FIR  filters  studied  here  are 
shown  in  Table  XVIII. 


TABLE  XVIII 


STEADY-STATE  yr(n) 

Direct  Form  .00972191 

Cascade  Form  .000767394 

Parallel  Form  .0176601 

Nested  Form  .000391882 

Cascade-Nested  Form  .0000587236 

Parallel-Nested  Form  .00633241 


If  Table  XVIII  is  compared  with  Tables  XII,  XIII, 

XVI,  and  XVII,  it  is  obvious  that  as  the  word  length  is 
increased,  the  actual  and  expected  output  response  is  coming 
close  to  the  ideal  output  response. 

Deviation  at  the  Output  Response  of  the  Digital  Filter 

Deviation  is  defined  as  the  difference  between  the 
output  responses  of  the  digital  filter  based  on  the  different 
word  length.  The  expected  and  actual  deviation  of  FIR  fil¬ 
ters  studied  here  for  10  bits  and  16  bits  word  length  are 
shown  in  Tables  XIX  and  XX. 


TABLE  XIX 


EXPECTED  DEVIATION 


Direct  Form 
Cascade  Form 
Parallel  Form 
Nested  Form 
Cascade-Nested  Form 
Parallel-Nested  Form 


.0007114 

.000040297 

.000526715 

.0001269 

.0000000461866 

.0000049 


TABLE  XX 


ACTUAL  DEVIATION 


Direct  Form 
Cascade  Form 
Parallel  Form 
Nested  Form 
Cascade-Nested  Form 
Parallel-Nested  Form 


.000828 

.0000098 

.0003304 

.0000953 

.0000608 


Summary 


The  expected  and  actual  outputs  and  deviation  of  the 


FIR  digital  filters  studied  in  Chapter  III  are  calculated 
and  presented  with  tables  based  on  10  and  16  bits  word 


length.  The  ideal  output  response  is  also  presented. 


98 


V.  Conclusion  and  Recommendations 


In  this  thesis,  we  have  considered  the  problem  of 
finite  word  length  effects  in  some  special  classes  of  digital 
filters.  Some  well-known  and  new  structures  have  been  pre¬ 
sented  for  this  case.  For  some  of  the  new  structures,  the 
deviation  at  the  output  response  remains  constant  or  insig¬ 
nificant  as  the  word  length  is  increased. 

One,  who  is  interested  in  the  low  deviation  at  the 
output  response  due  to  finite  word  length  registers,  can 
find  the  result  in  Tables  XIX  and  XX  helpful.  Corresponding 
output  response  of  the  digital  filters  is  shown  in  Tables 
XII,  XIII,  XVI,  XVII  and  XVIII.  We  can  see  from  the  tables 
that  the  digital  filter,  which  has  low  deviation,  gives 
very  small  output  response  which  requires  longer  output 
register  to  recognize.  As  we  know  that  it  makes  the  arith¬ 
metic  operation  slower  and  increases  the  cost  to  use  the 
longer  register. 

The  techniques  and  software  developed  here  can  be 
used  to  evaluate  other  signal  processing  schemes  in  which 

binary  operations  with  round-off  and/or  truncation  are 

« 

required,  such  as  the  FFT.  The  programs  for  fixed-point 
arithmetic  in  the  Appendices  can  be  extended  for  floating¬ 
point  arithmetic.  Thus,  we  may  be  able  to  determine  the  bet¬ 
ter  arithmetic  for  a  particular  digital  filter  implementa¬ 
tion.  This  work  can  be  extended  by  studying  other  new 


Appendix  A  contains  the  flowgraphs  which  help  to 
understand  the  FORTRAN  algorithm  in  Appendices  B,  C,  and  D. 
These  flowgraphs  are: 

1.  Decimal  to  Binary  Number  Converter 

2.  Two's  Complement  of  Binary  Numbers 

3.  Binary  to  Decimal  Number  Converter 

4.  Two's  Complement  Addition 

5.  Binary  Multiplication 

6.  Shift-left  and  Shift-right  Operator 

7.  FIR  Direct  Form  Structure 

8.  FIR  Cascade  Form  Structure 

9.  FIR  Parallel  Form  Structure 

10.  FIR  Nested  Form  Structure 

11.  FIR  Cascade-Nested  Form  Structure 

12.  FIR  Parallel-Nested  Form  Structure 


FALSE 


X(I,l)-0 


X(I,J)-1 


J=J+1 


BEGIN 

READ 
X(I),  W 

initialize" 


^  IF  ' 
X(I)<0 


X(I)a2.0*X( I) 


X(I,1)-1 


X(I,J)=0  1 

J* 

J+l 

WRITE 

X(I,J) 


Figure  25.  Decimal  to  Binary  Numbers  Converter 
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Figure  27.  Binary  to  Decimal  Number  Converter 


Figure  29.  Binary  Multiplication 


Figure  31.  FIR  Cascade  Form  Struc 


Figure  33.  FIR  Parallel  Form  Structure 


Figure  35.  FIR  Cascade-Nested  Form  Structure 
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Appendix  B 


Coefficients  and  Input  to  the  Digital  Filters 

Appendix  B  contains  the  program,  which  can  scale 
and  quantize  the  coefficients  and  the  input  for  the  digital 
filter,  and  user's  manual.  Each  program's  user  manual 
explains  what  the  program  does.  These  are  called  as 


follows : 


USER'S  MANUAL  PROGRAM  IN. FR 


FILE: 

DIRECTORY: 
LANGUAGE : 


IN.  FR 
DP4 :OWEN 
FORTRAN  5 


DATE: 


September  1983 


AUTHOR : 


Harun  Inanli 


SUBJECT : 

FUNCTION: 


PROGRAM  USE: 


Scaling  and  quantization  of  given 
filter  coefficients. 

This  program  first  reads  the  filter 
coefficients  from  the  file.  Then,  it 
scales  those  coefficients  such  that  the 
summation  of  the  absolute  value  of  the 
coefficients  is  less  than  0.1.  Finally, 
it  quantizes  these  coefficients  accord¬ 
ing  to  user  requirements  of  either  the 
truncation  or  the  rounding  technique. 

The  program  is  loaded  by  the  following 
command : 

RLDR  IN  INI  IN3  IN4  6FLIB© 


SUBROUTINE  REQUIRED: 


Name  Location 
INI . FR  DP4 : OWEN 
IN3.FR  DP4 : OWEN 

IN4.FR  DP4 : OWEN 


Purpose 

To  read  the  filter  coefficient 
To  scale  the  filter  coeffi¬ 
cient 

To  quantize  the  filter  coeffi¬ 
cient 


EXECUTION  OF  THE  PROGRAM  AND  ITS  OUTPUT  FOLLOWS: 


IN 

FILTER  COEFFICIENT  FILE  NAME:  FC 
ENTER  FILE  NAME:  TC 
COEFFICIENT  FILE  NAME  FOR  PLOT:  TCI 
WORD  LENGTH:  16 

QUANTIZATION  TYPE  ( 1 -TRUNCATION ,  O-ROUNDING)  1 


The  input  data  file  called  FC  contains  the  coeffi¬ 


cients  according  to  the  equation  shown  below: 


H(z)  *  AO  B(0)  +  B( l)z-1  +  ...  +  B(M)z~M 
A(0)  +  A( 1 )z_1  +  ...  +  A(M)z“M 

File  FC  is  presenting  the  necessary  data  as  shown 


below : 


5 

0 

3 . 934541E-02 
.210533 
.341118 
.341118 
.210533 
3.934541E-02 
1.00000 
1.00000 


where  M=5,  N=0,  B(0)=3.934541E-02 ,  ...,  B(5)=3.934541E-02 , 
A(0)*1. 00000  and  A0-1. 00000. 

File  TC  stores  the  coefficients  (in  binary)  after 
they  are  scaled. 

TC 


16 

6 

0000000001101011 

0000001000111110 

0000001110100011 

0000001110100011 

0000001000111110 

0000000001101011 


where  16  desired  number  of  bits  in  coefficient  register,  6 
is  the  number  of  coefficient. 

File  TCI  stores  both  quantized  and  scaled  coeffi¬ 
cients  as  well  as  the  coefficients  coming  from  file  FC. 

The  first  column  shows  the  coefficient  numbers;  the  second, 
the  coefficients  coming  from  file  FC;  the  third,  quantized 
coefficients  and  the  fourth,  the  scaled  coefficients  in 
file  TCI. 


TCI 


5 


1 

. 1343790E 

00 

. 9765625E-02 

.  1119825E-01 

2 

. 2789370E 

00 

. 2148438E-01 

. 2324475E-01 

3 

. 3400000E 

00 

. 2734375E-01 

. 2833333E-01 

4 

. 2789370E 

00 

. 2148438E-01 

. 2324475E-01 

5 

.  1343790E 

00 

. 9765625E-02 

.  1119825E-01 

USER'S 

MANUAL  SUBROUTINE  IN1.FR 

FILE: 

■ 

IN1.FR 

DIRECTORY: 

DP4 :OWEN 

LANGUAGE : 

FORTRAN  5 

DATE: 

September  1983 

AUTHOR : 

Harun  Inanli 

SUBJECT : 

Reading  of  given  filter  coefficients. 

FUNCTION: 

This  subroutine  reads  the  given  filter 
coefficients  from  the  file. 

SUBROUTINE 

REQUIRED: 

None 

USER’S  MANUAL  SUBROUTINE  IN3.FR 


FILE: 

DIRECTORY : 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT : 
FUNCTION: 

SUBROUTINE 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT : 

FUNCTION: 


IN3.FR 
DP4.-0WEN 
FORTRAN  5 
September  1983 
H&run  Inanli 

Scaling  of  given  filter  coefficients. 

This  subroutine  scales  the  given 
filter  coefficients  such  that  the  sum¬ 
mation  of  the  absolute  value  of  the 
coefficients  is  less  than  0.1. 

REQUIRED:  None 

USER'S  MANUAL  SUBROUTINE  IN4.FR 


IN4.FR 
DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Quantization  of  digital  filter  coeffi¬ 
cients  . 

This  subroutine  quantizes  the  scaled 
digital  filter  coefficients  according 
to  user  requirements  of  either  the 
truncation  or  the  rounding  technique. 
First,  the  scaled  coefficient  is  con¬ 
verted  into  binary  and  placed  in  the 
coefficient  register.  The  coefficient 
register  can  be  a  maximum  of  140  bits 
long.  Then,  according  to  user 


requirements,  this  binary  number  is 
truncated  or  rounded  to  the  desired 
word  length.  Finally,  the  quantized 
number  is  converted  back  to  the  real 
number  and  stored  in  the  file. 

SUBROUTINE  REQUIRED:  None 

FLOWGRAPH : 


Type  Figure 

1.  Decimal  to  Binary  Number  Converter  25 

2.  Two's  Complement  of  Binary  Numbers  26 

3.  Binary  to  Decimal  Converter  27 


vy-fv  0  •*******»********«**«***#**##«#«###«•***«-«*-*#•»*•»*•»«**#*-»«###-»•»«* 


PROGRAM 

AUTHOR 

DATE 

LANGUAGE 


IN.  PR 

HARUN  INANLI 
SEPTEMBER  83 
FORTRAN  5 


FUNCTION: 


THIS  PROGRAM  IS  USED  TO  SCALE  AND  QUANTIZE 
THE  FILTER  COEFFICIENT  IN  EITHER  TRUNCATION 
OR  ROUNDINQ  TECHNIQUE  ACCORDING  TO  USER  REQU1RMENT 
THE  FILTER  COEFFICIENT  IS  QPTAINED  BY  USING  THE 
PROGRAM  CALLED  WFILTER.  QUANTIZED  FILTER  COEFFICIE* 
IS  STORED  IN  THE  FILE  NAMED  BY  THE  USER  IN  BINERY 


C^*******************************  ft**********************#*#*********#**-***! 
DIMENSION  B<500>.  A(500> 

DIMENSION  OUTF I LE !  7 ) ,  H !  500 ) 

DIMENSION  FF < 70) *  HH ( 70 ) ,  MM< 70 ) » NN< 70) « SS < 70 ) ,  BA( 500) ,  DD ! 500) 
DIMENSION  DD<500).  B1  <  500).. 

INTEGER  FF»  HH.  MM.  NN.  SS,  W  ,  K 
CALL  INK0UTF1LE,  B.  A,  M,  N,  AO) 

CALL  IN3< B,  M.  B 1  ) 

CALL  IN4!B1.M.  B) 

STOP 

END 


‘  PROGRAM 
AUTHOR 
DATE 

LANGUAGE 


INI.  FH 

HARUN  INANLI 
SEPTEMBER  83 
FORTRAN  5 


FUNCTION: 


THIS  PROGRAM  IS  USED  TO  READ  THE  FILTER 
COEFFICIENT  PRODUCED  BY  DESIGN  PROGRAM 
WFILTER  ACCORDING  TO  USER  REQUIREMENT. 


>*****#**************##*******#*********##***##***####*#iHHHHHMHHHj 

SUBROUTINE  INI (OUTFILE. B, A. N.  N.  AO) 

DIMENSION  OUTFILE !  7 ) , B  <  500 ) ,  A* 500) 

ACCEPT  "FILTER  COEFFICIENTS  FILE  NAME  :  " 

READ! 11, 10) OUTFILE! 1 ) 

10  FORMAT! Si 5)  ; 

CALL  OPEN! 1,  OUTFILE,  1,  IER ) 

IF  ! IER. NE.  1 ) TYPE  "OPEN  ERROR",  IER 


READ  FREE! 1)M 
READ  FREE! 1 )N 
READ  FREE ! 1 )  !B!I>, 
READ  FREE! I )  !A(1). 
READ  FREE!  DAO 
CALL  CLOSE! 1. IER) 
IF  ! IER  NE.  1 )  TYPE 
RETURN 
END. 


1=1.  M*i  ) 
I  vl.  N+J  ) 


Fu.E  mnc***. 
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r****  ******************************  ******************************** 


L 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

o 


PROGRAM 

AUTHOR 

DATE 

LANGUAGE 


I  NO.  FR 

HARUN  I  NANI.  I 
SEPTEMBER  83 
FORTRAN  5 


FUNCTION: 


THIS  SUBROUTINE  IS  USED  TO  SCALE  THE  FILTER 
COEFFICIEN  SUCH  THAT  THE  SUMMATION  OF  THE 
ABSOLUTE  VALUE  OF  THE  COEFFICIENTS  IS  LESS 
THAN  <0.  1). 


Gfc 


*  ******#*#***********#***#***********#************■*•**■*•*»•**#***■*•*  ****** 
SUBROUTINE  IN3(B,M,  Bl> 

DIMENSION  B ( 500 > .  BA ( 500 ) • B 1 ( 500 ) 

REAL  SUM 
INTEGER  K 
L  * 1 000 
DO  20  K*1,L 
SUM*0 

DO  30  1*1. M+l 
BA ( I ) = ABS ( B ( 1 ) ) 

BA( I )*BA< I )/K 
SUM»SUM+BA< I > 

CONTINUE 

IF  (SUM.  LT.  <.  1  )  )G0  TO  50 
CONTINUE 
CONTINUE 
DO  52  1=1, M+i 
Bid  >=Bd  )/K 
RETURN 
END 


30 


20 

50 
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^;  »«•*•»■*•»******■»*#***•********#***•»***•»**■»*****•******■»*•»**•»*****•»••••»***■» 

c 

C  PROGRAM  :  IN4.  FR 

C  AUTHOR  HARUN  INANLI 

C  DATE  SEPTEMBER  83 

C  LANGUAGE:  FORTRAN  5 

C 

C  FUNCTION:  THIS  SUBROUTINE  IS  USED  TO  QUANTIZE  THE  FILTER 

C  COEFF I C I ENTES  IN  EITHER  TRUNCATION  OR  ROUNDING 

C  TECHNIQUE  ACCORDING  TO  USER  REQUIERMENT.  THEN 

C  CALCULATE  THE  QUANTIZE  ERROR  AND  STORE  ALL 

C  THESE  DATA  IN  THE  FILE. 

C 

C  ****•»•*•***  *************#**************#***************-**■*****•***#*■*•** 
SUBROUTINE  IN4!B1,  M«  B ) 

DIMENSION  D  (  500  ) >  BK!  500) ,  D<  500) »  BN!  500 )  ,.BB  !  500) 

DIMENSION  BC<500>. BA<500).  BD1500). DD(500>. B1I500) 

INTEGER  OUTF I LE ( 7 ) »  OUTF ( 5 ) 

INTEGER  HH!70),  K.  MM<70> ,  NN< 70 ) .  FF!70),  OPT.  SS(70) 

INTEGER  VI 

ACCEPT “ENTER  FILE  NAME  :  " 

READ  <11. 400  >  OUTF I LE  < 1 ) 

400  FORMAT! SI 3) 

CALL  DFILW<QUTFILE.  IER) 

IF <  IER.  EQ.  13)  GO  TO  401 
IF! IER.  NE.  1) TYPE" DELETE  FILE  ERROR".  IER 

401  CALL  CFILW!OUTFILE.  2.  IER) 

IF! IER.  NE.  1 )TYPE“CREATE  FILE  ERROR", IER 
CALL  OPEN! 1. OUTFILE. 3,  IER) 

IF!IER.  NE.  1 ) TYPE”OPEN  FILE  ERROR”,  IER 
ACCEPT"COEFFIC IENT  FILE  NAME  FOR  PLOT  :  “ 

READ ! 1 1 . 900 ) OUTF ! 1 ) 

900  FORMAT! SI 5) 

CALL  DFILW!QUTF,  IER) 

IF!  IER.  EQ.  13 ) GO  TO  910 

IF! IER.  NE.  1 )TYPE“DELETE  FILE  ERROR". IER 
910  CALL  CF I LW! OUTF, 2,  IER) 

IF! IER.  NE.  1 )TYPE“CREATE  FILE  ERROR”.  IER 
CALL  OPEN! 2.  OUTF,  3.  IER > 

IF! IER.  NE.  1 ) TYPE"OPEN  FILE  ERROR",  IER 
ACCEPT" WORD  LENGTH  :  ".W 

ACCEPT"QUANTI ZATIQN  TYPE  < 1 -TRUNCATION, 0-ROUNDING) " , OPT 

A-W-l 
AA^W* 1 
Al*A-l 

DO  56  L=®1,  AA 
HH!L)»0 
FF!L)=0 
NN!L)=0 
SS(L)a!) 

MM  <  L ) *0 
56  CONTINUE 


122 


IF < OPT.  EQ.  i  )GO  TO  11 
IF ( OPT.  EQ.  0)G0  TO  91 

'*•»»*****«•««**«**««***»*•#«**««*#«#******#«*«*#««««*#* 
TRUNCATION  OPTION 


11  DO  10  T-l.M+1 

IF(BKI).  LT.  (0.  0))G0  TO  81 
HH  <  1 )  =*0 
GO  TO.  82 

81  HH!1>»1 

82  BB  <  I  >  »2.  0*ADS  <  D 1  (  I )  ) 

C*********  THE  LOOP  20  IS  USED  TO  CONVERT  THE**************** 

C  DECIMEL  number  to  BINERY. 

DO  20  K=2»  W 

IF  ( BB  ( I  > .  GE.  1.  0  )G0  TO  30 

HH!K)*0 

GO  TO  40 

30  HH !  K )  =  1 

BB( I )=BB!  I  )-l. O 
40  BB ( I )*BB ( I )*2. O 

20  CONTINUE 

C *********  END  OF  LOOP  20  **************************** 

BK  !  I )  =0.  O 

C*********  THE  LOOP  60  IS  USED  TO  CONVERT  THE  **************** 

C  BINERY  NUMBER  TO  DECIMEL. 

DO  60  K=2,  A 

*  60  BK!I)=BK!I)+HH(K)*!2.  0#*!-K+l)) 

C **********  END  OF  LOOP  60  ****************************** 

IF <HH< 1 ) .  EQ.  1 )G0  TO  100 
BN( I )“BK< I ) 

GO  TO  110 

100  BN(I)»-BK(I) 

110  D  < I ) *B 1 < I ) —BN  < I ) 

10  CONTINUE 

C********  THE  INFORMATION  OPTAINEDp  ABOVE  IS  STORED  IN  FILE  ****** 
WRITE! 10. 200) W 
WRITE! 1. 500) W 
WRITE!  1.  500XM+1) 

WRITE ! 2. 500) !M+1) 

WRITE! 10. 201) 

WRITE! 10.  202) 

WRITE! 10.  203) 

500  FORMAT !20X.  15) 

200  FORMAT (4X. "WORD  LENGTH  :  ",  14) 

201  FORMAT ! 4 X,  "USED  QUANTIZATION  TYPE  IS  TRUNCCTION") 

202  F0RMATI4X.  "I",  3X,  "COEFFICIENT  B ! I )", 9X, "SCALED  COEFFICIENT" 

1  ,  5X.  "ROUNDOFF  ERROR") 

203  FORMAT !4X.  3X.  " - ",  9X.  " - " 

1  ,  5X,  " - ") 

DO  204  1*1.  M+l  4-  ttti)  ,  ^  ' 

v  WRITE!  10,  205)  I»B!I),B1!I)«  DCI) 

VC  WRITE! 2.  901  >I,B!I),B1!I),  D!I) 
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204  CONTINUE 

.  205  FORMAT  (IX#  14,  2X,  E14.  7*  14X,  E14.  7,  6X*  E14.  7) 

901  FORMAT (IX.  14,  2X,  E14.  7,  2X,  E14.  7.  2X,  E14.  7) 

;  WRITE ( 10,  206) 

206  FORMAT (IX. "TRUNCATED  COEFFICIENT  IN  BINARY”) 

DO  230  L»l. AA 

230  HH(L)*0 

DO  207  I-1,M+1 

IF (B1  <  I ) .  LT.  (0.0)  )C0  TO  208 
HH< 1 )*0 
CO  TO  209 
200  HH(1)«1 

209  BB  <  I )  *2.’  0* ABS  ( B 1  (  1 )  ) 

DO  210  K»2,  W 

IF(BB  <  I ) .  GE.  1.  0)00  TO  211 
HH  ( K )  =*0 
GO  TO  212 

211  HH(K)=1 

BB ( I )=BB < I )  —  1 .  0 

212  BB(I>=2.  0*BB(I) 

210  CONTINUE 

WRITE ( 10, 213) (HH(K) , K»i,  W) 

WRITE! 1. 213) (HH(K). K-l,  W) 

213  FORMAT <12X. 70(11) ) 

207  CONTINUE 
GO  TO  55 

£  END  OF  TRUNCATION  OPTION 

C******************************************************* 

C«**********************##****#»«*«#***«**#*1H»*****#'IHHt** 

C 

C  ROUNDING  OPTION 

C  . 

91  DO  26  1*1, (M+l ) 

IF(B1  ( I ) .  LT.  (0.  0)  )G0  TO  21 
FF ( 1 )*0 
GO  TO  22 

21  FF  ( 1  )  **  1 

22  BC  ( I )  *2.  0*ABS  ( B 1  ( 1  )  ) 

C*******#THE  LOOP  23  IS  USED  TO  CONVERT  THE  **#****#**•»*#**#* 
C  DEC I MEL  NUMBER  TO  BINERY. 

DO  23  K*2. AA 

IF  ( BC  ( I ) .  GE.  1.  0)G0  TO  24 

FF(K)-0 

GO  TO  25 

24  FF ( K ) « 1 

BC( I )*BC( I )— 1.  0 

25  BC(I)»BC(I)*2.  0 

23  CONTINUE 

C*#****#  END  OF  LOOP  23**************** 

DO  31  K=1,A 
MM(K)=*0 
MM(W)*1 


31  CONTINUE 

IF  !FF! AA) .  EQ.  1 )GO  TO  42 
IF<FF<AA).  EQ.  0)00  TO  37 

•  --t *********  THE  LOOP  121  USED  TO  FIND  THE  ROUNDED************** 
C  NUMBER  STORED  IN  FINITE  REGISTER 

42  NNN*AA 

DO  121  JJ=3,  NNN 


II-NNN-JJ+2 

NN'<  1 1 )  »FF  ( 1 1 )  +MM  ( 1 1 )  +SS  <  1 1  > 

IF(NN(  II).  LT.  2) GO  TO  121 
NN  <  1 1 )  =*NN  (II)  —2 
SS!II-1>=1 
121  CONTINUE 

C*****«****END  OF  LOOP  121************************ 

GO  TO  9 

37  DO  47  K=2,  W 

47  NN  <  K  )  =*FF  <  K  ) 

9  IF(FF<1).  EQ.  MM<1) )G0  TO  45 

NN<1)=1 
GO  TO  41 

45  IF(FF<  1  ).  EQ.  1  )G0  TO  6 

NN  !  1  ) — O 
GO  TO  41 
6  NN  ( 1  )  =  1 

41  BA!  I  )=0.  0 

C*********  THE  LOOP  130  IS  USED  TO  CONVERT  THE  ROUNDED********** 
0  BINERY  NUMBER  INTO  THE  DECIMEL  NUMBER. 

DO  130  K=2.  W 

If'  130  BA! I)«BA!I)+NN!K)*<2.  0**!-K+l) ) 


C»*****END  OF  LOOP  130*************** 


IF(NN( 1 ) . EQ.  1 )G0  TO  131 
BD( I )*BA< 1 ) 

GO  TO  132 

131  BD< I )=— BA! I > 

132  DD ( I ) *B 1(1) — BD  < I ) 

26  CONTINUE 

C *******  THIS  PART  OF  THE  PROGRAM  IS  USED  TO  STORE 
C  THE  INFORMATION  ABOUT  THE  ROUNDING 

C  OPTION. 


WRITE! 10,  300) W 
UR I TE ( 1  *  600 ) W 
WRITE! 1. 600) (M+l) 

URITEC2,  600) <M+1) 

WRITE! 10.  301 )  s 

WRITE! 10,  302)  , 

WRITE! 10.  303)  ' 

600  FORMAT ! 20X  #15) 

300  FORMAT !4X» "WORD  LENGTH  :  ",  14) 

301  FORMAT ! 4 X, "USED  QUANTIZATION  TYPE  IS  ROUNDING") 

302  F0RMAT!4X,  "I".  3X,  "COEFFICIENT  B ! I )",  9X. "SCALED  COEFFICIENT" 

1  . 5X.  "ROUNDOFF  ERROR") 


303  FORMAT !4X,  3X,  " - ",  9X.  " 

1  .  5X.  " - ") 

DO  304  1=1, M+l 


n  n 


T  ^  V 


WRITE (10/  305 )  I »  B(I),  BKI).  DD(I> 

WRITE  (2.  901  >I,B(I),B1(I).DD<I> 

04  CONTINUE 

05  FORMAT! IX,  14,  2X,  £14.  7.  14X.  E14.  7.  6X,  E14.  7) 
WRITE ( 10, 306  > 

306  FORMAT (IX. "ROUNDED  COEFFICIENT  IN  BINARY") 
DO  307  L*1,AA 

HH  <  L ) *0 
FF(L)»0 
NN  <  L ) *0 
SS(L)«0 
MM(L)-0 

307  CONTINUE 

DO  331  1*1 , M+l 

IF( B 1 ( I ) .  LT.  (0.0))  CO  TO  30a 
FF  < 1 ) *0 
CO  TO  309 

308  FF  < 1 ) * 1 

309  BC(I)*2  0*ABS(B1(I) ) 

DO  310  K*2, AA 

IF(BC<  I ).  CE.  1.  0)G0  TO  311 

FF(K)*0 

CO  TO  312 

311  FF ( K ) * 1 

BC ( I )*BC  < I )  — 1 . O 

312  BC  ( I  ) *2.  0*BC ( I ) 

^  310  CONTINUE 

t#  DO  313  K*1,A 

MM(K)*0 
MM(W)»1 

313  CONTINUE 

IF(FF< AA).  EQ.  1  )C0  TO  314 
IF(FF(AA).  EQ.  0)CQ  TO  315 

314  NNN-AA 

DO  316  JJ-3. NNN 
II-NNN-JJ+2 

NN (II) »FF (II) +MM (II) +SS (II) 

IF  ( NN  (II).  LT.  2 )  CO  TO  317 
NN (II) *NN (II) —2 
SS(II-1)»1 
CO  TO  316 

317  NN (II) *NN (II) 

316  CONTINUE 

GO  TO  320 

315  DO  321  K-2,  W 

321  NN(K)*FF(K) 

320  IF(FF(i).  EQ.  MM(l))CO  TO  322 

NN ( 1 ) * 1 
CO  TO  325 

322  IF (FF(  1 ).  EQ.  1  )G0  TO  324 
NN ( 1 ) "0 

r.  GO  TO  325 

324  NN ( 1 ) * 1  , 
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325 


WRITE < 10.  326) <NN<L). L-U.  W) 


WRITEd.  326)<NN<L).L*1.  W) 

326  FORMAT ( 12X. 70( Il>) 

331  CONTINUE 

CALL  CLOSE d . IER)  - 

IFdER.  NE.  1)TYPEMCLQSE  FILE  ERROR-.  IER 

TYPE  "IF  YOU  WANT  SINUSOIDAL  , INPUT  TYPE  :  HA  " 

CALL  CLOSE (2. IER) 

IFdER.  NE.  1 )  TYPE  "CLOSE  FILE  ERROR".  IER 
55  CONTINUE 

C  » 

C  END  OF  ROUNDING  OPTION 

C*********************************************************** 

RETURN 

END 


& 
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USER'S  MANUAL  PROGRAM  NEWC 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT : 
FUNCTION: 


PROGRAM  USE: 


NEWC 

DP4 :OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Finding  the  new  filter  coefficient. 

This  program  is  used  to  find  the  real 
filter  coefficient  values  after  they 
are  changed  in  binary  for  nested  filter 
structure . 

The  program  is  loaded  by  the  following 
command : 

RLDR  NEWC  @FLIB@ 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type 

1.  Two's  Complement  of  Binary  Numbers 

2.  Binary  to  Decimal  Number  Converter 

EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS  FOLLOW : 


Figure 

26 

27 


NEWC 

ENTER  THE  OLD  BINARY  COEFFICIENT  FILE  NAME:  TC 
ENTER  THE  NEW  BINARY  COEFFICIENT  FILE  NAME:  NTC 


Content  of  the  file  TC  is  explained  in  the  user's 
manual  of  our  program  IN.FR.  The  content  of  the  file  NTC  is 
the  same  as  the  file  FC  which  is  also  explained  in  the  user's 
manual  of  the  program  in.FR. 


«_ 

c 

c 

c 

L 

C  *  • 


H  0 


c- 

c 


I 

y 


.71, 


!:  w  IF  ir  I  •  \  **  It  **  *' 


.  ft*  ?  *•  frit*  ***•**•**•■*  . 


•  i. 

!  AMO'  1 A ?•  F  : 
I  •  Or ji  i  1  UM: 


I*'!  k<N 

H/MfUtl  1 1;- -ill  1 
i».  1. .'  r:<  ->.i 

r-nti  1  ran  :» 

THIS  PROGRAM  IS  USED  TO 
FILTER  COEFFICIENT  FROM 


►  »«•******- #*•****■«•> 


f  *  *  ^♦■B-JHHHHt*#**********-*****#*#******--!- 

i  i'iEINS  I  ON  YT  (  500  > 

1  tv  I  EGER  OUT  FILE  (7) ,  OPT 
INTEGER  Y<2<>,  1 40 )  .  OUT F  <  5  ) 

' .  •  i  •-  J<  0>  014,  ‘  RR .  (1 

‘v  r  "ENTER  THE.  OLD  B I  MERY  COEFFICIEW, 

-  '  i  ,  K))OUiF  ll.E  •  t  • 

1  "  ’  > t  ) 

■  •:  i'l  <  i  .  out  r  I :.i* -  .». .  Il:«  > 

.•**  J  )  I  YPE”i  F'J  >1  FI  Li-;  ERROR".  I  HR 
!  i'j'iJW 
.  .  :  :  i<  >  .*  *1 

i  :  <  -  i  1  >X  1  1  ‘.i  1 

,  1.  i .  i'.<  ■  1  •  i  n  y  1  /( >  ■  i  .1  * ) 

,VL  *.-•  r’THTFR  THE  NEW  B INFRY  COEFFICIENT  , 
ITFU  ) 

i  ’!  •  1 ; i* .  1  1  » 1  1 1  * 

:  .-.I  !  Of  1 1.1  •  (  O  *  f F.  IF-;  ) 

i  '*  IN  13  >00  To  S:  1 0 

::  .  I*,  r,  Ml  .I'l  r  PE"  PEL  i  IE  FU.P  ERROR ",  IER 
. ,1. .  •  i  (UKdiiir-  L.  n  so 

i.i-  Mir .  I )  TYPE  “CREATE  FILE  ERROR",  IER 
.  Ac  L  >  (PEN •  P,  OUTF,  3.  .1  ER  ) 

FUtR  ME.  1>TYPE"0PEN  FILE  ERROR",  IER 
-.0  t-0,  (3-1) 

r:i  A  1.1  (  t ,  00,  END'- 4 1  )  <  Y  (  I ,  Is  » ,  ls»  1 ,  OW  > 

Til  J ;  ;  -iUE 

;  >  '  -f  Hr  P- £•■*•*-  F-  *  <r  it -IHMHMfr **»  •»•  \ 

i:  ;w  ■ .  jL'i  ri:  i  c  .1 1 1  ■;  r 

.!  -  ■  ..  »o,  (:>  i  > 

f  r  .  I  >:•-<)  O 
OiJ  140  II~c:  OW 

■in  )-YT  (  I  >  *Y<  I,  II  )  *  c>.  ()*M-IIH)) 

IF  ?  ,  (  I,  1  ).  EG.  0>«0  TO  43 
r  f  f  )  ■  V  T  <  J  ) 

■  -|M  IUE 

i  i[i  -  f-  43 

^  «■- ir *L‘  JH*- *  '  •'vfrV.  -i  fc Rr ft  fr  X“$p4HHHfr ♦♦♦ 
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‘.CULATE  THE  NESTED 
-  GIVEN  BINARY  EOUIVII 


1  L-  NAME 


T  NAME 


■M 


Or  t-  *■»*•»• 


USEE'S  MANUAL  PROGRAM  NES1 


B 


Pi 


V*. 


/• 


FILE: 

NES1 

DIRECTORY: 

DP4 : OWEN 

LANGUAGE : 

FORTRAN  5 

DATE: 

September  1983 

AUTHOR : 

Harun  Inanli 

SUBJECT: 

Finding  the  Nested 

Filter  Coefficients 

FUNCTION: 

This  program  locates  the  nested  filter 
coefficients  based  on  the  equation  be- 

low : 

BN(O)  =  A(O) 

BN( I )  =  A( I ) /QUANTIZED( A( I ) ) ) 

where  BN  =  nested  structure  coeffi¬ 
cient;  A  =  direct  form  coefficient; 
and  QUANTIZED( A( I ) )  =  truncated  or 
rounded  direct  form  coefficient. 

Then,  the  nested  filter  coefficients 
are  scaled  such  that  each  coefficient 
is  two  times  less  than  the  absolute 
maximum  value  of  the  coefficient. 

Finally,  those  coefficients  are  quantized 
according  to  user  requirements  of  either 
the  truncating  or  the  rounding  tech¬ 
nique  . 

PROGRAM  USE:  The  program  is  loaded  by  the  following 

command : 

RLDR  NES1  @FL1B@ 

SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 

Type  Figure 

1.  Decimal  to  Binary  Number  Conversion  25 
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EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS  FOLLOW: 


NES1 

COEFFICIENT  WORD  LENGTH:  16 
INPUT  FILE  NAME  FOR  NESTED  STRUCTURE:  TCI 
ENTER  FILE  NAME  FOR  NESTED  COEFFICIENT:  NC 
QUANTIZE  TYPE  (1-TRUNCATION,  O-ROUNDING)  1 


The  content  of  the  file  TCI  is  explained  in  the 
user's  manual  of  the  program  IN.FR.  The  file  NC  contains 
the  coefficients  number  at  the  first  and  the  nested  coeffi 
cients  (in  binary)  at  the  second  column.  The  first  number 
6  represents  the  number  of  coefficients  and  the  second 
number  16,  the  desired  coefficient  word  length. 


NC 


6 

16 

1  0000000000001001 

2  0100000000000000 

3  0001001100100110 

4  0000101111010001 

5  0000011101001011 

6  0000001000110101 
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I'll  ‘.'I 


•  '.  i  t  OP 
DA  i ! ' 

LANGUAGE: 


fmm  n  iu.-u!i 
y.;i'ilHCEi<  33 
FT.R  f  »*N  0 


F'.'.-SCTICM  This  pan ORAH  CALCULATES 

SIRUC'fUR'.  COEFFICIENT  L. 

D!  l.  O'/l 

£JN»  0  >  -A< ) 

BN  (  I )  -A  (  I  )  /GUANT I  ZED  <*A  t  i 
Ut-:M  E  UN  :  NESTED  STRUCTURE  >.  f 

A  THE  SCALED  DIRECT  ( 

THE  SCALED  DIRECT  FORM  i 
THE  F’RONGKAM  IN  FR  FUR  i 
COEFFICIENTS  ARE  SCALED 
CAN  Liu  DUNG  EITHER  IN  U- 
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at  c  z  t  -  r  nrrr  i  i  ent  word  length  :  •• .  nc 

ACT Lh i “ INPUT  FILE  NAME  FOR  NESTED  STRUC 
IT!” AD  <  1  1 ,  IOXjUTFILE  (  J  > 

GFitAT  (013) 

C At  l.  OPEN (  1 .  OUTF I LE ,  J  ,  IER  » 

ll:  l  IFR  ME.  i> TYPE-OPEN  Fit. E  ERROR",  IER 

READ-.  I  •  !?0 ) !3 

EOF h.-,  f  <  20 X.  I  D; 

DO  30  I  ”  I  ,  13 

F GAD  <1,40)1.-  X  <  I  ) ,  X IS  ( I  ) ,  D  ( I  ) 

;"ur  .  .AT  <  IX.  14,  2X,  E i  4.  7,  2X,  GJ4.  7,  2X,  E14.  7) 
’At  I.  CLOSE  <1.  IER) 

IF  I  IER  HE.  1  >T  YPE-Cl.GSE  FILE  ERROR".  IER 
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IF  I1ER  NE  1 ) TYPE" DEI. ETE  FILE  ERROR",  IER 
CAtL.  CPU .l-HOU TFILE.  2.  IER  ) 

IF*  TER  ME.  1  ) TYPE" CREATE  FILE  ERROR".  IER 
CALL  OPEN  <  2,  OUTF  I LL ,  J.  I  ER  > 

IF  -  IGF  NE  1  )  I  VPE-CJPFN  FILE  ERROR”,  IER 


.  NESTED  FILTER 
k  UN  THE  EQUATION 


.  ICIENT 

COEFFICIENT 

n  ICIENTS  ARE  FOUND  DY 
lORE  THE  NESTED  FILTER 
,  UUANT  I  ZED  THE  GUAM 
,-l  ION  OR  IN  ROUML.NO. 

:t  <,#««*«*#  .«««*««*  It«  -r 
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USER ’ S  MANUAL  PROGRAM  HA 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT: 
FUNCTION: 


PROGRAM  USE: 


HA 

DP4 : OWEN 

FORTRAN  5 

September  1983 

Harun  Inanli 

Creating  the  input. 

This  program  produces  the  input, 
according  to  user  requirements,  in 
sinusoidal,  step  or  multiple-step 
function  and  then  scales  it.  Finally, 
it  quantizes  the  input  function, 
according  to  user  requirements,  either 
by  the  truncating  or  rounding  tech¬ 
nique  . 

The  program  is  loaded  by  the  following 
command : 

RLDR  HA  HA1  STEP  MSTE  HA2  HA3  @FLIB@ 


SUBROUTINE  REQUIRED: 


Name 

Location 

Purpose 

HA1 

DP4 : OWEN 

To  produce  sinusoidal  function 

STEP 

DP4 : OWEN 

To  produce  step  function 

MSTE 

DP4 : OWEN 

To  produce  multiple-step 

function 

HA2 

DP4 : OWEN 

To  scale  the  input 

HA3 

DP4 : OWEN 

To  quantize  the  input 

EXECUTION  OF 

THE  PROGRAM  AND 

ITS  RESULTS  FOLLOW: 

HA 

ENTER  FILE  NAME:  TI 

NUMBER  OF  SAMPLES:  10 

INPUT  TYPE  (1-STEP,  0-S INUSOIDAL)  1 

AMOUNT  OF  STEP:  5 

WORD  LENGTH:  16 

ENTER  FILE  NAME  FOR  INPUT:  Til 

QUANTIZATION  TYPE  (1-TRUNCATION,  O-ROUNDING)  1 
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File  TI  shown  below,  containes  the  desired  number 


of  samples  with  10,  coefficient  word  length  with  16,  and 
the  coefficients  in  binary.  The  content  of  the  file  Til 
is  the  same  as  the  file  TCI  explained  in  the  user's  manual 
of  program  IN.FR. 


TI 

10 

16 

0000110011001100 

0000110011001100 

0000110011001100 

0000110011001100 

0000110011001100 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 


«-  -*  **•***#*****###* 


*  *r*  S  i  v  -1  tr -t  *"*r  «  n 

PROGRAM  HA 

hUTHOR  HAH  UN  I  NANI.] 

DATE  SEPTEMBER  83 

LANGUAGE  FORTRAN  5 

FUNCTION:  THIS  PR  OGRAM  PRODUO  .  STEP. MULTIPLE  STEP 

OR  SINUSOIDAL  INPUT  ,  CORDING  TO  USER 
REQUIREMENT.  THEN  QUf  i  T I ZE  THE  INPUT  EITHER 
IN  TRUNCATING  OR  IN  1  -UNDING  TECHNIQUE. 

■  «■(?*•<!■>  k-4.-tHr*-<HMf*******-»**-*******#*#*'***#«'  1  ,f*  »■#•***■**■*•**■**  ******* 

DIMENSION  X  (  500 ) ,  X  X  (  500) .  XS  <  500 ) ,  BN  <  .->,BK(500) 

i,  i  MENS  I ON  I3B  (  25< >.  D<  256 ),  BE<  256  ),  BD<  L  > .  DD  <  256 ) 

A I  ME  NS  I  on  BA (500) 

I! 

p-URGEF  A,  HHi  /O),  K.  MMC70),  NN( 70).  F(  70).  OPT 
i  NTEGER  SS  (70),  GUTFXl.  E  (  7) ,  RA,  MR  A 
fN-  CE.PT  " ENTER  FILE  NAME  .  " 

f  h.Ml>(  11.  t  l  )OUTFlLE(  1  ) 
i  1  FORMAT  (  f>  •  ' '  > 

C  AL  L  DF  1 1  U  <  OU  T  F I l-E,  1 ER  ) 
iFlILR  I.  •«  13)00  TO  V06 

I  F  (  I ER  Ml-.  t  )  TYPE  "DELETE  FILE  ERROR’*,  ;  -i 
'•06  ALL  CFCl  UiOUTFILE.  2,  IER) 

iLUER.Mc.  1  )  TYPE  "CREATE  FILE  ERROR”.  < 

CALL  OPEN <2,  OUTFILE,  3.  IER) 

IF(IER  ME  1 ) TYPE"OPEN  FILE  ERROR", IF- 
ACCEPT "NUMBER  OF  SAMPLES  :  ”  ,R 

ACCEPT”  INPUT  TYPE  ( 0—S  1‘EP,  1  •  MSTEP,  2~S  .  USQIDAL)  ”.  OPT  l 
DO  10  L*I,R 
;  0  X  <  L  )  =0  0 

1 F  <  DP  f  1 .  L‘0.  2 )  GO  TO  100 
IFTOPri  F(i  1)G0  TO  103 
1 F ( OP T 1 .  EG.  0)G0  TO  102 
100  CALL  HA  1 (X. K> 

GO  TO  101 

1  -.5.3  CALL  MSI  t-  (  X,  H,  RA,  MR  A  > 

CO  TO  101 

102  CALL  STEP!  X.  IT.  RA) 

(01  CALL  HA2<  X,  XS.  K,  R  ) 

CALL  HA'.KX,  X!5,  K,  R> 

CALL  CLOSE (2. IER) 

IF  (IER.  ML  1  )  TYPE  "CLOSE  FILE  ERROR”,  :i 
5  TOP 

LMi) 
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FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT : 
FUNCTION: 


SUBROUTINE 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 


USER'S  MANUAL  SUBROUTINE  HA1 

HA1 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Producing  Sinusoidal  Function. 

This  program  produces  the  sinusoidal 
function  according  to  the  equation 
below : 

X(N)  =  TT*Sin(N*2*  /T)  +  1.0 

where  TT  =  gain 

N  =  number  of  points  up  to  500 
T  =  period 

By  inspection  of  this  equation,  the 
sinusoidal  function  values  will  be 
all  positive. 

REQUIRED:  None 

USER'S  MANUAL  SUBROUTINE  STEP 

STEP 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 


SUBJECT : 


Producing  Step  Function. 


FUNCTION: 


This  subroutine  produces  the  step 
function  up  to  500  points.  The  magni 
tude  of  step  function  is  0.1. 


SUBROUTINE 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT: 
FUNCTION: 

SUBROUTINE 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE  : 
AUTHOR : 
SUBJECT: 


REQUIRED:  None 

USER'S  MANUAL  SUBROUTINE  HA2 

HA2 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Scaling  the  Input  Function. 

This  subroutine  scales  the  input  sig¬ 
nal  such  that  the  absolute  maximum 
value  of  the  signal  is  less  than  0.1. 

REQUIRED:  None 

USER'S  MANUAL  SUBROUTINE  MSTE 

MSTE 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Producing  the  Multiple  Step  Function. 


FUNCTION: 


This  subroutine  produces  the  step 
function  as  shown  below. 


The  magnitude  of  the  step  is  0.1 


SUBROUTINE  REQUIRED:  None 


USER'S  MANUAL  SUBROUTINE  HA3 


HA3 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Quantizing  the  Input  Signal. 

This  subroutine  quantizes  the  scaled 
input  signal  according  to  user  require¬ 
ments  of  either  the  truncating  or 
rounding  technique.  First,  scaled 
input  is  converted  into  the  binary  and 
placed  in  the  input  register.  The 
input  register  can  be  a  maximum  140 
bits  long.  Then,  according  to  user 
requirement,  this  binary  number  is 
truncated  or  rounded  to  the  desired 
finite  word  length.  Finally,  quantized 
number  is  converted  back  to  real  number 
and  stored  in  the  file. 

SUBROUTINE  REQUIRED:  None 

FLOWGRAPH : 

Tyfi?. 

1.  Decimal  to  Binary  Number  Converter 

2.  Two's  Complement  of  Binary  Numbers 

3.  Binary  to  Decimal  Number  Conversion 


Figure 

25 

26 
27 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT: 
FUNCTION: 


o  or,  nn 


v  «■  <  1?  -if  *<!"«•  ♦  I***  *•»#■  ■«■**■)»  i;  i--tf  •«■*■*•«••«■  *********** 

C 

C  f>  OCR  All  lb'.  I 

C  Mil  HUH  HrtKUN  1NANI  1 

C  PATE  SEPTEMBER  83 

C  I  mNGUAGE  FOR  THAN  5 

C 

C  FUNCTION  the  subroutine  is  usf  to  produce  a 

C  SINUSOIDAL  SIGNAL  FOF  .  Nf'UT  ACCORDING  TO 

C  USER  REC1UARMENT. 

c 

C  **  »  ***•»«**■*  ****-*  *-**W*  J?********it*********-***-i. 

SUB  ROUT  i  iii  HA  t  <  X ,  R  > 

DIMENSION  X  <  l>00 ) 

REAL  IT,  T 
INTEGER  I: 

' E^r  at  vs  the  period  :  u/r 

ACCEPT  "WHAT  IS  THE  GAIN  :  ", TT 
DU  10  N- i  ,  R 

I  ",  Y  *N>--rr  •'■SIN'.  <FL0AT<N>*2*3.  14159J/T  0 

Air  TURN 
NO 


>*#*■**•->*#*«•****  b****iHHt*******#*#*#-******i 


■r  •*"»•***## 


PROGRAM 

AUTHOR 

DATE 

LANGUAGE 


STEP 

HARUN  INANLI 
SEPTEMBER  83 
FORTRAN  5 


FUNCTION: 


THIS  SUBROUTINE  IS  "ED  TO  PRODUCE 
THE  STEP  INPUT. 


I 


SOBROUI.TNE  STEP  <  X,  R»  RA ) 
DIMENSION  X<000) 

INTEGER  RA,  R 

ACCEPT" AMOUNT  OF  STEP",  R A 
DO  10  ( -O,  RA 
X  <  I  »  -  1 

DO  20  I  ~  < RA+1  ),  R~1 

x  ( i  >-  o.  o 

RETURN 
END 
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10 

iO 


C************************************************************* 

c 

C  PROGRAM  -  HAS 

C  *  AUTHOR  HARUN  INANLI 

C  DATE  SEPTEMBER  83 

C  ‘LANGUAGE  :  FORTRAN  5 


C  FUNCTION  :  SUBROUTINE  HA2  IS  USED  THE  SCALE  THE 

C  PRUDUCED  INPUT  SIGNAL  SUCH  THAT  THE 

C  MAXIMUM  VALUE  OF  THE  SIGNAL  LESS  THAN 

C  .  1 

C***************************************************************** 

C 

SUBROUTINE  HA2<  X*  XS» K»  R  ) 

DIMENSION  XX(SOO)j  XS(SOO), X( 500) 

INTEGER  R.K 
REAL  XXM.  L 
"  XXM**0.  O 

C******THE  LOOP  10  USED  TO  FIND  THE  MAXIMUM  VALUE********* 

C 

DO  lO  N»1.H 

X  X  ( N )  =*ABS  (  X  (  N )  ) 

IF<  XX (N) .  GE.  XXM) GO  TO  20 

XS<N)«X(N)  '  , 

GO  TO  10 
20  XXM-XX(N) 

XS(N)*X<N) 

10  CONTINUE 


C******£ND  OF  LOOP  10*************** 

L-XXM/.  1 

C*******THE  LOOP  30  IS  USED  TO  SCALE  THE  INPUT********** 
C 

DO  30  1*1  *  R 

30  XS<I)*XS(I) /FLOAT ( L ) 

C  n 

C****»END  OF  LOOP  30************* 

RETURN 


c***********************************  *  I***************************** 

c 

C  PROGRAM  HA3 

C  AUTHOR  HARUN  INANLI 

C  DATE  SEPTEMBER  S3 

C  LANGUAGE  :  FORTRAN  5 

C 

C  FUNCTION  :  SUBROUTINE  HA3  IS  USED  TO  QUANTIZE  THE 

C  SCALED  INPUT  EITHER  IN  TRUNCATED  OR  ROUNDING 

C  TECHNIQUE  ACCORDING  TO  USER  REQIEREMENT.  THEN 

C  CALCULATE  THE  QUANTIZATION  ERROR  AND  STORE  ALL 

C  THESE  INFORMATION  IN  THE  FILE 

C 

C**********************************#*^******#****#********#*##*.**#** 

SUBROUTINE  HA3< X. XS.  K.  R ) 

DIMENSION  X ( 500 ) » XS( 500) . BN( 500) ,  BB < 500) 

DIMENSION  BK(  500) , BA(500). BD< 500) » DD< 500 ) ,  D< 500 ) , BE<  500) 
INTEGER  HH( 500) i K. MM ( 70 ) .  NN( 70 ) ,  FF ( 70) ,  OPT. SS(70) 

INTEGER  A. R. AA. OUTF  < 5) 

ACCEPT" WORD  LENGTH  :  ",K 

ACCEPT" ENTER  FILE  NAME  FOR  INPUT  :  " 

READ  <11. 900 ) OUTF ( 1 ) 

900  FORMAT (SI 5) 

CALL  DFILW(OUTF,  IER) 

IF<  IER.  EQ.  13>G0  TO  910  * 

IF(IER.  NE.  1 )TYPE“DELETE  FILE  ERROR)", IER 
910  CALL  CFILW(OUTF. 2,  IER) 

IFdER.NE.  1)  TYPE  "CREATE  FILE  ERROR".  IER 
CALL  OPEN <  1,  OUTF.  3,  IER) 

IF ( IER.  NE.  1  )TYPE"OPEN  FILE  ERROR",  IJER 

ACCEPT " QUANT I Z AT I ON  TYPE  ( 1 -TRUNCATION, O-ROUND I NG) ",  OPT 
A=K-1 
A1»A-1 
AA*K+1 
DO  56  L-l.K 
HH(L>*0 
FF(L>=»0 
NN<  L ) =0 
SS  <  L ) -0 

MM(L)»0  - 

56  CONTINUE 

IF  (OPT  EQ.  1  )G0  TO  11 
IF(OPT.  EQ.  0)G0  TO  91 


TRUNCATION  OPTION 
DO  10  I“1 . R 

IF(XS(  I ).  LT.  0.  0)G0  TO  81 
HH(  1  )  =*0 
GO  TO  82 
HH( 1 )=1 
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'7  V 


SO 


k- 


E> 


$ 


82  BB !  1 )  *2. 0*ABS ( XS  < I > ) 

C  «-*******THE  LOOP  20  IS  USED  TO 


CONVERT  THE 
TO  BINERY. 


**#***##***## 


TO  CONVERT 
DEC  I  MEL. 


THE  -ft******#*# 


© 


C  DECCIMEL  NUMBER 

DO  20  N-2.  K 

IF  <  BB  (  I ) .  6E.  1.  0)G0  TO  30 
HH ( N ) =0 
GO  TO  40 

30  HH!N>»1 

BB< I )*BB! I >-l.  O 
40  BB  ( I  )*BB  (  1  )*2.  0 

20  CONTINUE 

C******END  OF  LOOP  20*************** 

BK<  I  >“0.  O 

C #* *##*##****THE  LOOP  60  IS  USED 
C  BINERY  NUMBER  TO 

DO  60  N=2»  K 

60  BK!  I >*BK! I)+HH!N>*!2.  0**!-N+l >  > 

C#»****«***END  LOOP  60****************** 

I F  <  HH  (  1 ) .  EQ.  1 )  GO  TO  100 
BN(  I  )*BK!  I  > 

GO  TO  110 

100  BN( I )--BK( I ) 

110  D!I)=XS!I )—BN! 1 ) 

10  CONTINUE 

C«******THE  INFORMATION  OPTAINED  ABOVE  IS  STORED  IN  THE  FILE********** 
WRITE! 10. 204 )R 
WRITE! 10.  205 )K 
WRITE!2..400)R 
WRITE! 1. 400 )R 
WRITE !-2.  400 >K 
WRITE! 10.  206) 

WRITE! 10.  200) 

WRITE! 10.  201) 

FORMAT !20X.  15) 

FORMAT !4X.  "NUMBER  OF  SAMPLE  :  ".19) 

"WORD  LENGTH  :  ".19) 

"USED  QUANTIZATION  TYPE  IS  TRUNCATION") 

"I", 6X, "INPUT  X! I )", 5X. "SCALED  XS! I )". 2X, "ROUNDOFF  ERRfl 


400 

204 

205 

206 
200 
201 


6X. 


4X» 


203 

202 


210 


A"-' 


212 


FORMAT !4X. 

FORMAT !4X. 

FORMAT !4X. 

FORMAT !4X. 

DO  203  1*1#  R 

WRITE! 10. 202)1.  X ! I ) .  XS! I )  .  D! I ) 

WRITE!  1. 202)1.  X!  I ).  XS!I ).  D!I  ) 
CONTINUE 

FORMAT!  IX.  14.  2X.  E14.  7.  2X,  E14.  7.  2X.  E14 
CALL  CLOSE! 1.  IER) 

IF!IER.  NE.  1) TYPE "CLOSE  FILE  ERROR", IER 
WRITE! 10. 210) 

FORMAT! IX. "TRUNCATED  INPUT  IN  BINARY") 
DO  207  1*1.  R 

IF ! XS!  I ) .  LT.  0.  0)G0  TO  212 
HH ! 1 ) *0 
GO  TO  213 
HH! 1 )*1 
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2X, 


7) 


•lv^* 


*  -  »- 


213 


BB<I)»2. 0*ABS( XS< 1 ) ) 

DO  214  N=2»  K 

IF  <  BB  <  I  ) .  GE.  1 .  O  >GO  TO  215 

HH(N)»0 

GO  TO  216 

HH(N)»1 

BB  ( I  )=*BB  <  I )  —  1 .  O 
BB( I )«BB( I )*2. 0 
CONTINUE 

WRITE ( 2.  208 >  < HH < N ) *  N“ 1 , K) 
WRITEC10. 208) ( HH ( N ) »  N* 1 » K) 
FORMAT! 12X.  200(11)) 

CONTINUE 
GO  TO  55 

END  OF  TRUNCATION  OPTION 


-k-cl 


C*****************************  *********  *********** 

C ***************************************************** 

c 

C  ROUNDING  OPT I ION 

C 

91  DO  26  1  =  1. R 
FF(  1  )=*0 

IF <  XS(  I  ) .  LT.  (O.  O)  )GQ  TO  21 

FF(1)=0 

GO  TO  22 

21  FF  ( 1  )  =*  1 

22  BE  <  I  )  *2.  0*ABS  ( XS ( I )  ) 

C*******THE  LOOP  23  IS  USED  TO  CONVERT  THE  ************** 

C  DECIMEL  NUMBER  TO  BINERY 

DO  23  N=2«  AA 

IF(BE(  I ).  GE.  1.  0)G0  TO  24 

FF(N)»0 

GO  TO  25 

24  FF<N)»1 

BE< I )-BE( I >  — 1 .  0 

25  BE  ( I )  =*BE  ( 1 )  *2.  0 

23  ,  CONTINUE 

C*******»***END  OF  LOOP  23******************************** 
DO  31  N=1.K 
MM(N)=0 
•  MM(K)=1 

31  CONTINUE 

IF(FF(AA).  EG.  1  )G0  TO  42 
IF(FF(AA>.  EG.  0)G0  TO  37 
42  NNN*AA 

C**«*«********THE  LOOP  121  IS  USED  TO  FIND  ROUNDED********h 


****THE  LOOP  121  IS  USED  TO  FIND  ROUNDED************ 
NUMBER  STORED  IN  FINITE  REGISTER 
DO  121  JU-3. NNN 
II=NNN-JJ+2  ' 

NN  (II)  *»FF  (II)  +MM  (II)  +SS  (II) 

IF(NN(  II  ).  LT.  2) GO  TO  121 
NN( II )»NN( II )-2 
SS(II-1)=1 
CONTINUE 
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n 


C*-********END  OF  LOOP  12 l***************************** 

.  GO  TO  9 

37  DO  47  N=2,  K 

NN(N)=FF(N> 

47  CONTINUE 

9  IF(FFd).  EG.  MM(l))GO  TO  45 

NN< 1 )»1 
GO  TO  41 

45  IF(FF(  1).  EG.  1  )GO  TO  6 

NN!1)=0 
GO  TO  41 
6  NN  <1 )  =*1 

41  BA!  I  )=0.  O 

C*******THE  LOOP  130  IS  USED  TO  CONVERT  THE  ROUNDED  *********** 

C  BINERY  NUMBER  INTO  THE  DEC I MEL  NUMBER 

DO  130  N=*2,  K 

130  BA < I ) =B A < I ) +NN !  N )  *  <  2.  Q**!-N+l) ) 

C********END  OF  LOOP  130************************** 

IF(NN<  1 ).  EG.  1  )GQ  TO  131 
BD(I)-BAd) 

GO  TO  132 

131  BD  <  I  )  BA<  I ) 

132  DD( I )=XS< 1 )—BD< 1 ) 

26  CONTINUE 

C************»THIS  PART  OF  THE  PROGRAM  IS  USED  TO  STORE*********** 
C  THE  INFORMATION  ABOUT  THE  ROUNDING  OPTION 

WRITE (10. 30O)R 
WR I TE < 10.  301 )K 
WRITE!2»  400 )R 
WRITEtl.  400 ) R 
WRITE <2.  400 )K 
WRITE < 10.  302) 

WRITE (10.  303)  * 

WRITE! 10.  304) 

DO  305  1*1.  R 

WRITE!  10,  306)1.  X  ( I  ) ,  XSd  ) ,  DDd  ) 

WRITE!  1.  306)1,  X  (I ) ,  XSd  ) ,  DD<  I ) 

305  CONTINUE 

306  FORMAT!  IX.  14.  2X,  E14.  7.  2X,  E14.  7,  2X,  E14.  7) 

DO  340  L-l.K 

HH!L)»0 
FF(L)*0 
NN!L)»0 
SS !  L )  =»0 
MM!L)*0 

340  CONTINUE 
WRITE (10.  341 ) 

341  '  FORMAT! IX. “ROUNDED  INPUT  IN  BINARY") 

DO  310  1*1. R 

IF(XS!I).  LT.  (0.  0)  )G0  TO  311 
FF ! 1 ) *0 
GO  TO  312 

311  FF  < 1 ) *1 

312  BE  <  I  )  *2.  0*ABS  (  XS !  I  )  ) 


-  ,  '  .  .  .  -  V  *.  '  *• 

’ *  » -  *  * 


DO  313  N=2.  AA 

IF(BF<  I ).  GE.  1.  0)GQ  TO  314 
FF!N)*0 
GO  TO  315 

314  FF  <N)=*1 
BE< I )=BE< I )-l. 0 

315  BE!I)*2.  0*BE!I) 

313  CONTINUE 

DO  317  N-l.K 
MM!N)-0 
MM!K>»1 

317  CONTINUE 

IF(FF(AA).  EG.  1 )GO  TO  310 
IF(FF(AA).  EQ.  0)G0  TO  319 
310  NNN=AA 

DO  320  JJ=3< NNN 
II=NNN-JJ+2 

NN! II >=FF! II)+MM! II )+SS! 1 1 ) 

IF  (NN(  II).  LT.  2) GO  TO  321 
NN  (II)  <*NN  (  1 1 )  -2 
SS< II-l )=1 
GO  TO  320 

321  NN  < 1 1 ) =NN  < 1 1 )  . 

320  CONTINUE 

GO  TO  322 

319  DO  326  N=2.  K 

326  NN!N)=FF!N) 

322  IF!FF!1>.  EQ.  MM!1))G0  TO  327 
NN  !  1 )  =*  1 
GO  TO  331 

327  IF(FFU).  EQ.  DGO  TO  330 

NN  ( 1 )  =*0 
GOTO  331 

330  NN!l)»i 

331  WRITE! 2.  332) !NN!L).  L*l»  K) 

WRITE! 10.  332) <NN<L).  L«l.  K) 

332  FORMAT! 12X.  200! II ) > 

310  CONTINUE 

300  FORMAT ! 4 X.  "NUMBER  OF  SAMPLES  :  ".19) 

301  FORMAT ! 4 X.  "WORD  LENGTH  :  ".19) 

302  FORMAT !4X.  "USED  QUANTIZATION  TYPE  IS  .ROUNDING" ) 

303  FORMAT !4X.  "I",  6X,  "INPUT  X  !  I  >•".  5X.  "SCALED  XS!  I  )".  2X,  "ROUNDOFF  ER( 

304  FORMAT !4X»  6X.  - ".  5X,  " - ".  2X.  " - 

55  CONTINUE 

TYPE  "IF  YOU  WANT  OUTPUT  TYPE  : OUT  " 

C  > 

C  END  OF  ROUNDING  OPTION 

C 

C *********************************************** ********* 

RETURN 

END 
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Appendix  C 


Digital  Filter  Structure 

Appendix  C  contains  the  program  and  user's  manual 
for  different  digital  filter  structures.  Each  program 
user's  manual  explains  what  the  program  does.  These  are 
called  as  follows: 

1.  OUT 

2.  COUT 

3 .  POUT 

4.  NES 

5.  ONES 

6.  PNES 


\  j 


•  -  I 

m 


& 

i  “ « 

v  / 

K'  - 
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jjAji  3 


V-lCvlV. 


USER'S  MANUAL  PROGRAM  OUT 


FILE: 

DIRECTORY: 
LANGUAGE : 


TOUT 

DP4 : OWEN 
FORTRAN  5 


DATE:  September  1983 

AUTHOR:  Harun  Inanli 


SUBJECT: 

FUNCTION: 


PROGRAM  USE: 


Calculating  the  Direct  Form  Digital 
Filter  Response. 

This  program  is  used  to  compute  the 
direct  form  digital  filter  output 
response.  The  digital  filter  coeffi¬ 
cient  and  input  signal  are  taken  from 
two  different  files  in  binary.  Then, 
they  are  multiplied  and  added  based 
on  convolution.  The  addition  is 
carried  out  in  two's  complement.  The 
output  register  is  two  times  larger 
than  the  input  register  and  the  output 
response  is  stored  in  binary. 

The  program  is  loaded  by  the  following 
command : 


RLDR  TOUT  @FLIB@ 
SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type  Figure 


1. 

Two's  Complement  of  Binary 

Numbers 

26 

2. 

Two's  Coplement  Addition 

28 

3. 

Binary  Multiplication 

29 

4. 

Shift-left  and  Shift-right 

Operator 

30 

5. 

FIR  Direct  Form  Structure 

31 

EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


TOUT 

BINARY  COEFFICIENT  FILE  NAME:  TC 
BINARY  INPUT  FILE  NAME:  TI 
UNQUANTIZE  BINARY  OUTPUT  NAME:  TO 


The  content  of  the  file  TC  and  TI  is  explained  in 
Appendix  B.  The  file  TO  shown  below  contains  the  desired 
word  length  with  16,  number  of  samples  with  10,  and  the 
output  response  in  binary. 


TO 

16 

10 

0  000000000001110111101101000100000 
1  000000001011010100010111101100000 
2  000000011001010100110011010000000 

3  000000100111010101001110110100000 

4  000000110000110001111001011100000 

5  000000110000110001111001011100000 

6  000000100111010101001110110100000 

7  000000011001010100110011010000000 

8  000000001011010100010111101100000 

9  000000000001110111101101000100000 


*  « «**********«*«******«*********#«**««»***********#*«*#********#* 

PROGRAM  :  OUT 

AUTHOR  HARUN  IN AML I 

DATE  SEPTEMBER  83 

LANGUAGE:  FORTRAN  5 

FUNCTION:  THIS  PROGRAM  IS  USED  TO  FIND  THE  FILTER 

OUTPUT  *BASED  ON  CONVOLUTION.  THE  BINERY  INPUT 

AND  FILTER  COEFFICIENT  ARE  COMING  FROM  THE  FILES 
THESE  VALUES  ARE  CALCULATED  BY  PROGRAM  HA  AND  IN, 

'  RESPECTIVELY.  NEGATIVE  NUMBER  IS  CONVERTED  TO  THE 
•TWO'S  COMPLEMENT  THEN  ADDITION  IS  CARIED  OUT  IN 
THIS  NUMBER  SYSTEM.  THE  OUT, PUT  WORD  LENGTH  IS 
SPECIFIED  TWO  TIMES  BIGGER  THAN  INPUT  WORD  LENGTH 
'  THE  CALCULATED  OUTPUTS  ARE  STORE  IN  BINERY  IN  THE 

FILE  * 

•  * 

* ****************************  4H»#**«***#***«^******##*****«*******«"ft** 

INTEGER  OUTF 1 LE ( 7 ) , OUTF ( 7 > 

INTEGER  X(20,  140),  H(20,  140).  PP(20,  140),  YC(20.  140) 

INTEGER  P (20,  140).  SS(20,  140), YY<20,  140) 

INTEGER  IW,  NC,  CW.  S,  F.  RR,  R2,  V,  JB,  JA 
ACCEPT" BINERY  COEFFICIEN  FILE  NAME  :  " 

READ( 11,  50)QUTF1LE( 1 )  , 

50  FORMAT (515) 

CALL  OPENd,  OUTFILE.  1.  IER) 

READ ( 1 , 60 ) CW 
60  FORMAT (20X,  15) 

READ( 1, 60)NC 
DO  70  I=»0.  (NC— 1 ) 

70  READ(  1,  80)  (H(  I,  K).  K«=l,  CW) 

00  F0RMAT(12X, 140(11) ) 

CALL  CLOSE! 1, IER) 

IF( IER.  NE.  1)TYPE"CL0SE  FILE  ERROR", IER 
ACCEPT" BINERY  INPUT  FILE  NAME  :  " 

READ(11. lO)OUTFILE(l) 

10  FORMAT ( S15) 

CALL  OPENd,  OUTFILE,  1,.  IER) 

IF( IER.  NE.  1)TYPE"0PEN  INPUT  FILE  ERROR  :  ",  IER 

READd.  30)  S 

30  FORMAT (20X,  15)  * 

READd.  30)  IW 

ACCEPT  "UNQUANTIZED  BINERY  OUTPUT  NAME  :  " 

READ (1 1 .  905 ) OUTF (1 ) 

905  FORMAT (SI  5) 

CALL  DFILW(OUTF.  IER)* 

IF(  IER.  EQ.  13)00  TO  906 

IF (IER.  NE.  1 )TYPE"DELETE  FILE  ERROR", IER 
CALL  CFILW(OUTF, 2,  IER) 


*06 


I F  ( I ER .  NE.  DTYPE’TREATE  fHTE  ERROR",  IER 
CALL  0PEN<2j  OUTFi 3.  IER) 

IF<  IER.  NE.  nTYPE'^OPEN  FILE  ERROR'S  IER 

WW=2*IW 

WWW=2*I W+l 

1WW=IW+1  • 

WWl*2*IW+2 

CWW=CW+1 

DO  400  I=0,<S-1> 

DO  410  K=IWW,  WWW  * 

XA4I,K)=0 
X(I,K>=0 

410  CONTINUE 

DO  401  M=0. (NC-1) 

IF(M.  GT.  I) GO  TQ  ..4QQ  _ 

DO  402 K=l, WWW +2 
SU<M, K)=0 

402  CONTINUE 

401  CONTINUE 

400  CONTINUE 

DO  430  1*1=0 *  <NC— 1 ) 

DU  440  K-CWW, WWW 
440  H<M,  K)«0'  * 

430  CONTINUE 

WRITE<2« 91 5) IW 
WRITE12, 916)S 

40  FORMAT <  12X*  140<  ID)-.  . 

0=0  . 

RR=0 

JB-0 

433  JB*J  , 

00  435  J=JB.  (JB+9) 

DO  436  K5=1,WW1 
YY <  J»  K5)=0 
YC(J. K5)«0 
436  CONTINUE 

435  '  CONTINUE 

IF<  JB.  EG.  297)G0  TO  467 
IF  ( JB.  EO.  198) GO  TO  467 
IF<  JB.  EG.  99) GO  TO  467 
TYPE(RR) 

IF(RR.  EG.  400) GO  TO  458  4 
IF(RR.EQ.  300)G0  TO  458 
IF(RR.  EQ.  200)00  TO  458  * 

IF(RR.  EQ.  100)60  TO  458 
467  DO  20  JA=RR,  <RR+9> 

20  READ(  K40»  END*4  t  )  <  X  <  JA<  H ) »  1 »  IW) 
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*  i«-*********************************4**'*********************** 

c 

v!  THE  BEGINING  OF  THE1  CONVOLUTION 

v . 

41  CONTINUE 
458  HR-JA 

DO  921  J*JB, (UB+9) 

IF<J. GT.  <S-l))GO  TO  929  • 

DO  110  h*0»NC-l 
LL= J-M 

1F(LL.  LT.  0)GQ  TO  9^1  .  . 

IF(U.  GE.  <JB+9> >GQ  TO  433  .  * 

DO  960  II=l,WWW+2 

P  (M* II )=0  * 

SO  <  Mj  II)  “0 
960  CONTINUE 

Cw*******THE  LOOP  130  IS  USED  FOR  BINERY  MILTIPLICATION****** 

DO  130  R=2» CW 
KK—CW—R+2 

IF<H<M.  KK).  EQ.  1  )GQ  TO  150 

C v********THE  LOOP  160  IS  USED  FOR  SHIFT-RIGHT*********** 

121  DO  160  K=2. WWW 

*l=WWW-K+2  ' 

P  <M»  1^1+1  )=P  <M<  Kl) 

160  CONTINUE 

P(M. 2)=0 

'•  * 

C*-»***********END  OF  LOOP  160*****************  * 

GO  TO  130  :  , 

150  DO  180  UJ=2,WWW 

II=WWW-JJ+2  * 

P  <M»  1 1 )  =X  < LL»  1 1 ) +P  <  M>  1 1  )+SS<M»  II) 

IF<P(M,  ID.LT.  2>G0  TO  180 
P  <  M»  1 1 )  =P  <  H»  1 1 )  -2 
SS  ( M.  1 1  — 1  )  =  1 
l  BO  CONTINUE 

IF(SS<M»  1).  EQ.  0)G0  TO  121 
,64  DO  528  K=2# WWW 

Kl*WWW-K+2 
P(M,K1+4)*P<M,K1) 

528  » CONTINUE 

P  <M# 2)  =  1 
GO  TO  121 

130  CONTINUE 

_ ■»« ***#***END  OF  LOOP  130************* 
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DO  190  11=2.  WW 

p cm,  ii)=pcm.  i i-4-i > 

I F  <  H  C  M,  1  ) .  EQ.  X  <  LL.  1 )  )  GO  TO  240 
PCM,1>  =  1 
•GO  TO  250 
240  PCM, 1 )=0 

C*******THE  BEGINING.  OF  THE  ADDITION  OF  P  AND  YY***#*.**** 


19'**' 

6***********THE  BEGINING  OF  THE  TWO'S  COMPLIMENT  OF  P**** 
C.  ♦  » 

250  IFCPCM.  1).  EQ.  0>G0  TO  600 

DO  610  1 I=2<  WWW 

IFCPCM.  II).  EQ.  0)G0  TO  ,620 
PCM. II)=0 
*  GO  TO  610 
620  PCM.  II>  =  1 

610  CONTINUE 

DO  602  I 1*1. WWW-1 
PPCM. II)=0 
SS  CM.  II) *0 
6 02  CONTINUE 

PPCM, UWW)=x 

SS  C  M.  WWW )  *0  r 

DO  603  11=2. WWW 
JJ-WWW-I 1+2 

-  PCM. JJ)=P  CM.  JJ)+PP  CM,  JJ)-*-SSCM,  JJ) 

*  IFCPCM,  JJ).  LT.  2)G0  TO  603 
PCM.  JJ)=P  CM.  JJ)-2 
SSCM. JJ-l)=l 


603  CONTINUE 

600  DO  201  11=1.  WWW 

JJ=WWW-II+1 
PCM. JJ+1)=PCM,  JJ) 

201  CONTINUE 

PCM.  l)-0 

0 

C»»*******-*END  OF  THE  TWO'S  COMPLEMENT  OF  P ************** 
DO  209  11=1.  WW1 
209  SSCM. II)»0 


DO  200  JJ=2.  WW1 
II=WW1-JJ+1 

YYCJ.  II)  =YY  C  J.  1 1  >+P  CM,  ID+SSCM,  II) 
IFCYYCJ.  II).  LT.  2)G0  TO  200 
YYCJ.  II)«YYCJ.  II)-2 
SSCM. II-1)»1 
200  CONTINUE 


0*******END  OF  ADDITION  OF  P  AND  Y Y ******************* ** 
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IF ( SS < M,  1  ).  EQ.  1  ) GO  TO  701  ~ 

IF  !SS(M»  2> .  EQ.  1  )G0  TQ  701 
GO  70  184 
DO,  678  11  =  1,  WWW 
JJJ=WWW-I1+1 
YY  ( J,  JJ J+1  )  =YY  ( J,  JJJ ) 

678  CONTINUE 

*  YY ( J»  1)=0 

184  IF!M.  EQ.  <NC-1> >00  TO  798 

IF(LL.  EQ.  0)00  TO  798 
IF  ILL.  $T.,J)GO  TO  929 
GO  TO  110  .  . 

»*-»*******TH£  183  IS  USED  FOR  SHI  FT -LEFT********* 


DO  1B3  I 1=1, WWW 

YC(J, II) =YY ( J,  II+l) 


K., 

C<t**+***#END  OF  LOOP  183*********************** 

IF(YC(J,  1).  EQ.  0)00  TO  800 
DO  810  11=2, WWW 

IF<YC< J.  III.  EQ.  0)00  TO  820 
YC1J,  II)=0 
GO  TO  810 

820  YC ( J, I I ) =1 

610  CONTINUE 

DO  019  11=1. WWW-1 
PP!J, II>»0 
SS!J, II>»0 
619  CONTINUE 

PP<J. WWW>=1 
SS!J. WWW)«0 
DO  829  I 1*2. WWW 
J J=WWW— I I +2 

YC ( J,  JJ)=YC< J.  JJ >  +PP ( J,  JJ)+SS< J,  JJ) 

I F  ( YC  <  J,  JJ  > .  LT.  2  >  GO  TO  829 
YC ( J,  JJ)=YC<  J,  JJ>-2 
SS<J, JJ-l)=f 
829'  CONTINUE 

800  CONTINUE 

WRITE12.  923>J,  <YC(  J,  JJ>,  JJ=i,  WWW) 

110  CONTINUE  \  ‘  * 

921  CONTINUE 
C  *■ 

C  END  OF  CONVOLUTION 

0  * 

C*w*************************************************************** 
CALL  CLOSE (1. IER)  . 

IF! IER.  NE.  1)TYPE"CL0SE  FILE  ERROR", IER 

915  FORMAT <2X, 15) 

916  FORMAT!  IX. .15) 

910  *  FORMAT <4X, "I",  5X, "UNQUANTIZED  OUTPUT") 

911  FORMAT < 4X.  5X.  " - "> 

923  FORMAT! IX,  14, 3X,  140<I1 ) ) 

CALL  CLOSE (2, IER) 

IF! IER. ME. 1)TYPE"CL0SE  FILE  ERROR", IER 
929 •  STOP  • 

END 
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USER'S  MANUAL  PROGRAM  COUT 


FILE: 

COUT 

DIRECTORY: 

DP4 : OWEN 

LANGUAGE : 

FORTRAN  5 

DATE: 

September  1983 

AUTHOR : 

Harun  Inanli 

SUBJECT: 

Calculating  the  Cascade  Form  of  the 
Digital  Filter  Response. 

FUNCTION: 

This  program  computes  the  cascade 

form  of  the  digital  filter  output 
response.  Each  second-order  section 
coefficients  and  input  signals  are 
taken  from  two  different  files  in 
binary.  Then,  for  each  second  order, 
they  are  multiplied  and  added  based  on 
convolution.  The  addition  is  carried 
out  in  two’s  complement.  The  output 
of  the  first  second-order  section  will 
be  the  input  of  the  next  second-order 
section.  The  final  second  or  er  sec¬ 
tion  output  will  be  stored  ii.  che  file 
as  the  cascade  filter  output. 

PROGRAM  USE:  The  program  is  loaded  by  the  following 

command : 

RLDR  COUT  OFLIBO 

SUBROUTINE  REQUIRED:  None 

FLOWGRAPH : 


Type  Figure 

1.  Two's  Complement  of  Binary  Number  26 

2.  Two's  Complement  Addition  28 

3.  Binary  Number  Multiplication  29 

4.  Shift-left  and  Shift-right  Operator  31 

5.  FIR  Cascade  Form  Structure  32 


EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


COUT 

BINARY  COEFFICIENT  FILE  NAME:  TC 
BINARY  INPUT  FILE  NAME:  TI 
UNQUANTIZE  BINARY  OUTPUT  NAME:  TO 
ENTER  THE  NEXT  SECOND  ORDER  SECTION:  TO 
NEXT  SECOND  ORDER  OUTPUT  FILE:  CTO 


The  content  of  the  file  TC  and  TI  is  explained  in 
Appendix  B.  The  file  TO  contains  the  output  of  the  first 
second-order  section  output  response  in  binary.  The  file 
CTO  shown  below,  which  contains  the  similar  data  explained 
for  the  file  TO  in  Program  OUT,  represents  the  output 
response  of  the  cascade  form  structure  in  binary. 


TO 

0  000000000111101110110100000000000 
1  000000001111010110111000010100000 
2  000000010111000101101100010100000 

3  000000010111000101101100010100000 

4  000000010111000101101100010100000 

5  000000001111010110111000010100000 

6  000000000111101110110100000000000 

7  000000000000000000000000000000000 

8  000000000000000000000000000000000 

9  000000000000000000000000000000000 


CTO 

16 

10 

0  000000000000001101100010011011000 
1  000000000000111001010001101111000 
2  000000000010000010001001110000110 

3  000000000010111010001110101011010 

4  000000000011010111100100101110010 

5  000000000010111010001110101011010 

6  000000000010000010001001110000110 

7  000000000000111001010001101111000 

8  000000000000001101100010011011000 

9  000000000000000000000000000000000 


o  o 


•i  *  s  ***»******-»***-»**#*********<H*****'»Hf*-»****iHH»'**#******#******-lHt' 


PROGRAM 


CUUT 


AUTHOR 

DATE 

LANGUAGE 


HARUN  I  NANI  .  1 
SEPTEMBER  83 
FORTRAN  5 


FUNCTION:  ’  THIS  PROGRAM  IS.  USED  TO  FIND  THE  FILTER 

OUTPUT  BASED  ON  CONVOLUTION  BY  USING  THE  CASCADE 
FILTER  STRUCTURE  THE  NEGATIVE  NUMBER  IS 
REPERESENTED  IN  TWO'S  COMPLEMENT.  THEN  SUMMATION 
IS  CARRIED  OUT  IN  THIS  NUMBER  SYSTEM,  TOO. 

«  THE  OUTPUT  VALUES  IS  STORED  IN  THE  FILE. 

EACH  COMPONENT  IS  THE  SECOND  DEGREE  FILTER 


>  »»**********.******#**#********##*********************************** 


INTEGER  OUTFILE! 7 > , OUTF ( 7  ) , QUTD < 7 ) 

INTEGER  X (0:  20,  140),  H(0.  20,  140),  PP(0:  20,  140),  YC(0:  20,  140) 

INTEGER  P  (O:  20,  140).  SS(0:  20,  140),  YY(0:  20,  140) 

INTEGER  IW,  NC.  CW.  S,  F,  RF,  RR,  UB.  JA,  QQ 
ACCEPT "BINERY  COEFFICIEN  FILE  NAME  :  " 

READ! 11, 50)0UTFILE< 1 ) 

SO  FORMAT (SI 5) 

CALL  OPEN!  1,  OUTFILE,  1,  IER)* 

READfl, 60)CW 
60  FORMAT <20X. 15) 

READ< 1,  60)NC 
DO  70  I=*0.  (NC-1 ) 

*  READ! 1. 80) (H( I, K), K=l. CW) 

CONTINUE 

FORMAT! 12X,  140(11)) 

CALL  CLOSE (l.IER) 

IF(  IER.  NE.  1 )  TYPE  "CLOSE  FILE  ERROR”,  IER 
ACCEPT "BINERY  INPUT  FILE  NAME  :  ” 

READ! 1 1, 10) OUTFILE! 1 ) 

10  FORMAT !S15) 

CALL  OPEN! 1, OUTFILE, 1. IER) 

IF! IER.  NE.  1)TYPE"0PEN  INPUT  FILE  ERROR  :  ”,  IER 
READ! 1. 30)  S 
JO  FORMAT ! 20X, 15) 

READ! 1 . 30 ) IW  . 

ACCEPT  "UNQUANTIZED  BINERY  OUTPUT  NAME  :  " 

READ! 11,  V05)0UTF! 1 ) 

'•VOS  FORMAT! Si 5  t 

CALL  DFILW(OUTF, IER)  * 

IF!  IER.  EQ.  13)G0  TO  906  » 

IF! IER  NE. 1 ) TYPE" DELETE  FILE  ERROR", IER 
V06  CALL  CFILWIOUTF,  2,  IER) 
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iF(IER.  N£.  1  )TYPE"CREATE  FILE  ERROR".  IER 
CALL  0PEN<2,  QUTF.  3,  IER) 

I F ( I ER .  NE.  1  )TYPE*'QPEN  FILE  ERROR".  IER 
WW*2*IW 
WWW=2*IW4 1 
•  I WW*IW+1 
WW 1*2*1 W+2 
CWW-CW+l 

DO  400  1*0.  < S-l ) 

DO  410  K*1WW, WWW 
X ( I .  K ) *0 

*  •  XAt-I ,  K)=0  « 

410'  CONTINUE  - 

DO,  401  M*0,  <NC-1)  .  , 

IF(M.  OT.  I) GO  TO  400 
DO  402  K* 1 . WWW+2 

SS(M.  K>*0  . 

402  CONTINUE 

401  CONTINUE  * 

400  CONTINUE 

DO  430  M--0.  <NC-1) 

*  DO  440  K*CWW.  WWW 
440  H(M, K)*0 

430  CONTINUE 
40  FORMAT  < 12X.  140 < II)) 

v  ********* ************************************************* 

f 

{  THE  BEGINING  OF  CONVOLUTION  FOR  CASCADE  FORM 
'  *  • 

KF=0 

412  J~0 

'  IFtRF.  EQ.  0)GQ  TO  513 

IF (RF.  GT.  <NC— 3)  )G0  TO  927 

ACCEPT ''ENTER  THE  NEXT  SECOND  ORDER  SECTION  :  “ 

READ( 1 1, 905)0UTF< 1 ) 

CALL  0PEN(2. OUTF.  1,  IER) 

IF < IER.  NE.  1 )TYPE  "OPEN  FILE  ERROR", IER 
REWIND  2 

ACCEPT "NEXT  SECOND  ORDER  OUTPUT  FILE  : " 

",  READ (11,  10) OUTD < 1 ) 

’■*  CALL  DFILWtOUTD,  IER) 

IF ( IER.  EQ.  13)G0  TO  584 

IF< IER.  NE.  1)TYPE  "DELETE  FILE  ERROR", IER 
584  CALL  CFILWIOUTD,  2,  IER) 

IF(IER.  NE.  1 )TYPE"CREATE  FILE  ERROR", IER 
CALL  OPEN <3.  OUTD,  3.  IER  ) 

IF ( IER. NE. 1)TYPE"0PEN  FILE  ERROR". IER 
IF<RF.  NE.  (NC-3)  )G0  TO  513  .« 

WR I TE  <3, 9 1 5 ) I W 
WRITE <3, 916)S 


««»***  THE  begining  of  convolution  for  second****************** 

ORDER  DIRECT  FORM 

h jj  JB=U 

DO  435  J-JB,  < JB+9) 

DO  436  K5-1.WW1 
YY<  J.  K5>=0 
YC ( J»  K5)=0 
436  CONTINUE 

435  CONTINUE  * 

IF(RF.  EQ.  0)60  TO  516 
IF(JB.  EQ.  297) GO  TO  523 
IF<  JB.  EQ.  198>G0' TO  523 
JF< JB.  EQ.  99) GO  TO  523  . 

TYPE  RR 

IF(RR. EQ.  400)GQ  TO  458 
IF(RR.  EQ.  300>G0  TO  458 
IF(RR.  EQ.  200)G0  TO  458 
IF<RR.  EQ.  1 00 ) GO  TO  458 

*»*#w#THE  LOOP  21  IS  USED  TO  READ  THE  OUTPUT  OF  THE****** 

FIRST  SECOND  ORDER  COMPONENT.  THEN.  IT 

IS  USED  AS  INPUT  FOR  NEXT  COMPONENT 

» *  ** 

i 

'.'23  DO  21  JA=RR.  CRR+9) 

.1  READ <2.  923.  END-43.  ERR»929)QQ,  < X < JA, K ) .  K-l .  WWW) 

13  CONTINUE 

<f*******END  OF  L.OOP  21******************** 

GO  TO  458 

516  IF< JB.  EQ.  297)G0  TO  467 

IF<JB.  EQ.  198)G0  TO  467 
IFtJB  EQ.  99>G0  TO  467 
TYPE  RR 

IF(RR. EQ. 400)G0  TO  458 
IF ( RR. EQ. 300)60  TO  458 
I F  ( RR .  EQ.  200 )  GO  TO  458 
IFtRR.EQ.  1 00 ) GO  TO  458 

n«*«*****THE  LOOP  20  IS  USED  TO  READ  INPUT************ 

4c 7  DO  20  JA—RR.  (RR+9) 

20  READ< 1. 40,  END-41, ERR-929 ) < X ( JA, K), K-l,  IW) 

41  CONTINUE 

-»**»***#*END  OF  LOOP  20*********************** 

458  RR-JA 

DO  92 1  J-JB,  <  JB+9 ) 

IF(RF. GT. (NC—1 ) )GQ  TO  929 
IF<J.  GT.  ( S- 1 ) ) GO  TO  932 
DO  110  M=0«  2 
A  LL-J-M 

I F < LL . LT. 6) GO  TO  921 
IF(J.  GE.  <  JB+9)  )GQ  TO  433 


.•  v  /  .• 


\\ 

. 

DO  960  11*1. WWW+2 

■ 

P  ( M,  II  )=0 

( 

at 

SS<M. I I )*0 

CONTINUE 

T  ,  ^ 

<hhm»-*****THE  LOOP  130  IS  USED  FOR  BINERY  MILTI  PH  CATION******** 

vS 

0 

DO  130  R=2, CW 

KK-CW-R+2 

121 

IF(H<M.  KK).  EQ.  1  >G0  TO  150 

DO  160  K*2, WWW 

.  Kl-WWW-K+2 

»  *„ 

P  (M.  Kl  +  1  )*P  <M,  K1  ) 

160  . 

•CONTINUE 

p'\' 

P(M,2)*0 

GO  TO  130 

1  ‘30 

DO  180  JJ=2, WWW 

>  '  • 

1 

I I -WWW— J J+2 

P  (M,  1 1  )*X  <LL,  1 1 ) +P  <  M,  1 1  >+SS<M»  II) 

IF(P(M,  II).  LT.  2)G0  TO  ISO 

P  <M,  1 1 )*P (M,  II )-2 

SS(M, II— 1 )*1 

180 

CONTINUE 

IF(SS<M.  1).  EQ.  0)G0  TO  121 

7  o  4 

DO  528  K=2. WWW 

£ 

Kl-WWW-K+2 

SB 

i 

G 

i 

3.'u 

P  (M,  Kl  +  1  )*P  (M,  K1 ) 

CONTINUE 

L"  * 

P(M.2)  =  1 

GO  TO  121 

> 

1.30 

CONTINUE 

*v 

'•y 

« 

r\< 

u 


.>»«■«•* *-*»**END  OF  LOOP  130************* 

00  190  11*2. WW 

190  P(M. II)=P<M» II+l) 

I F  ( H  ( M>  1 ) .  EQ.  X  ( LL.  1  )  )  GO  TO  240 
P(M. 1 )=1 
GO  TO  250 

:ho  pim.  n=o 

C*«-*******THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  OF  P********* 


C 


* 

v». 


250 


620 

610 


6<J  2 


XF(P(Mf*l).  EQ.  0)G0  TO  600  ' 

00  610  I 1*2. WWW 

IF<P<M,  II).  EQ.  0)G0  TO  620 
P(M. II)-0 
GO  TO  610 
P  ( M.  II>.*1 
CONTINUE 

DO  602  1 1*1, WWW-1 
PP < M.  II  >*0 
SS(M.  Il)»0 
CONTINUE 


164 


vv 


tv: 


C OP 
DO  209 


209 


K 


yc*. 


■V> 


>00 


a  ■& 


fry 


tv. 

V 


fc: 


820 

H10 


K-‘- 


819 


k.V 


kft 


THE  TWO'S 
11  =  1,  WW1 


COMPLEMENT  OF  P ****** 


S5(M. II >=0 
DO  200  JJ=2,  WW1 
II=WW1-J2+1 

YY< J,  II)=YY< J,  1 1 ) +P  <H»  II)+SS<M»  II) 
IF<YY(J. II). LT. 2)00  TO  200 
YY  ( J.  1 1  )=YY  <  J#  II)-2 
SS  <  M»  1 1  —  1  )  =  1 
CONTINUE 

IF < SS(M>  1).  EQ.  1  )G0  TO 
IF(SS<M.  2).  EQ.  1)00  TO 
GO"  TO  184 


781 

701 


781 

DO  678  11  =  1.  WWW' 

JJJ=WWW-II+1 

YY  ( J,  JJJ+ 1 )  =YY,(  J,  JJU ) 

6  78 

CONTINUE 

m 

YY<  J,  1  >=0 

184 

IF<M.  EQ.  2) GO  TO  798 

■;/ 

IF(LL.  EQ.  0 ) GO  TO  798 

IF( LL.  GT%  J)GO  TO  929 

\ 

GO  TO  110 

) 

798 

DO  183  11=1, WWW 

f* 

183 

YC  <  J,  1 1 )=YY< J,  II  +  l ) 

IF<YC< J.  1 ).  EQ.  0)G0  TO  8 

DO  010  11=2, WWW 

IF(YC<J»  II).  EQ.  0)00  TO  820 
YC  <  J,  II)  “0 
GO  TO  81^0 
YC ( J, II )=1 
CONTINUE 

DO  819  11=1, WWW-1 
PP(J, II)=0 
SS<  J,  II)=0 
CONTINUE 
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o'  PP<J, WWW)=1 

SS<J.  WWW)*0 
DO  029  11*2, WWW 
JO* WWW- I 1+2  * 

YC  <  J,  JJ)=YC<  J,  JJ)+PP< J,  JJ)+SS<J,  JJ) 

IF<YC<J,  JJ).LT.  2)00  TO  829 
* YC ( J#  JJ ) =YC ( J,  JJ ) -2 
SS(  J, JJ— i )*i 
F29  CONTINUE 

300  CONTINUE'-  *  -  ■  -  ' . . , 

IF (RF„OT.  0)G0  TO  588 

WRITE <2> 923)0,  < YC< J,  JJ> , JJ=1 ,  WWW) 

IF(  J.  EQ.  <S-1))G0  TO  654 
GO  TO  932 

654  CALL  CLOSE <2, IER) 

IF< IER.  NE.  1 )TYPE"CLOSE  FILE  ERROR”,  IER 
CALL  CLOSE < 1, IER) 

IF(IER.  NE.  1 )TYPE"CLOSE  FILE  ERROR",  IER 
</  .  * 
< >******£ND  OF  THE'  SECOND  ORDER  COMPONENT  CONVOLUTION******** 

GO  TO  932 

508  WRITE (3,  923)  J,  <  YC  <  J,  JJ ) ,  J  J=*  1 ,  WWW ) 

902  IF<  J.  NE.  S-l  )G0  TO  110 

DO  934  JJ*1,CW 

H<0, JJ)=H<RF+3.  JJ) 

L#  J  Hd,  JJ)=H<RF+4,  JJ) 

H<2. JJ)*H(RF+5,  JJ) 

934  CONTINUE 

'  RF=RF+3 
GO  TO  412 
no  CONTINUE 
421  CONTINUE 

CALL  CLOSE (3,  IER) 

IFdER.  NE.  1)TYPE"CL0SE  FILE  ERROR",  IER 
CALL  CLOSE <2, IER) 

IFdER.  NE.  1)TYPE"CL0SE  FILE  ERROR",  IER 
END  CONVOLOT I  ON  OF  CASCADE  FORM 

-«HMMMt"iHH»*************************************************** 

9  i  j)  FORMAT (2X,  15) 

916  FORMAT( IX, 15)  • 

910  FORMAT <4X,  "I",  5X.  "UNQUANTIZED  OUTPUT") 

.  4i  l  FORMAT <4X,  5X,  " - - - "  ) 

923  FORMAT (IX, 14, 3X, 140(11)) 

929  STOP 
END 
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USER'S  MANUAL  PROGRAM  POUT 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT: 

FUNCTION: 


PROGRAM  USE: 


POUT 

DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Calculating  the  Parallel  Form  Digital 
Filter  Output  Response 

This  program  computes  the  parallel 
form  digital  filter  output  response. 
Each  second-order  section  coefficients 
and  input  signal  values  are  taken  from 
two  different  files  in  binary.  Then, 
for  each,  second-order  section,  they  are 
multiplied  and  added  based  on  convolu¬ 
tion.  The  addition  is  carried  out  in 
two's  complement.  The  input  to  all 
second-order  sections  is  the  same. 

The  addition  of  all  second-order  sec¬ 
tions  will  be  the  required  output 
response  for  the  parallel  form.  This 
response  will  be  stored  in  binary. 

The  program  is  loaded  by  the  following 
command : 

RLDR  POUT  @FLIB@ 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type  Figure 

1.  Two's  Complement  of  Binary  Number  26 

2.  Two's  Complement  Addition  28 

3.  Binary  Multiplication  29 

4.  Shift-left  and  Shift-right  Operator  30 

5.  FIR  Parallel  Form  Structure  33 


EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


POUT 

BINARY  COEFFICIENT  FILE  NAME:  TC 

FIRST  SECOND  ORDER  FILTER  OUTPUT:  TO 

BINARY  INPUT  FILE  NAME:  TI 

BINARY  INPUT  FILE  NAME:  TI 

NEXT  SECOND  ORDER  OUTPUT  FILE:  TOl 

FIRST  SECOND  ORDER  FILTER  OUTPUT:  TO 

ENTER  THE  FILE  NAME  FOR  FIRST  SECOND  ORDER:  T02 

NEXT  SECOND  ORDER  OUTPUT  FILE:  TOl 

FIRST  SECOND  ORDER  OUTPUT  FILE:  T02 

ENTER  PARALLEL  OUTPUT  FILE  STRUCTURE:  PTO 


The  content  of  the  file  TC  and  TI  in  Appendix  B 
and  the  file  TO  in  Program  COUT  are  explained.  The  file 
TOl  and  T02  have  the  similar  type  of  data  as  the  file  TO. 
The  file  PTO  contains  the  output  response  of  the  parallel 
form  structure  in  binary. 


PTO 

0  000000001111011101101000000000000 
1  000000100101100100000011100100000 
2  000000110101000001101011100100000 

3  000000110101000001101011100100000 

4  000000110101000001101011100100000 

5  000000100101100100000011100100000 

6  000000001111011101101000000000000 

7  000000000000000000000000000000000 

8  000000000000000000000000000000000 

9  000000000000000000000000000000000 


PROCRAM  : 
AUTHOR  : 
DATE  : 
LANGUAGE: 

FUNCTION: 


POUT 

HAH UN  INANL3 
SEPTEMBER  S3 
FORTRAN  5  * 

f 

THIS  PROGRAM  IS  USED  TO  FIND  THE  FILTER 
OUTPUT  BASED  ON  CONVOLUTION  BY  USING  THE  PARALE 
FILTER  STRUCTURE  THE  NEGATIVE  NUMBER  IS# 
REPERESENTED  IN  TWO'S  COMPLEMENT.  THEN  SUMMATIO 
IS  CARRIED  OUT  IN  THIS  NUMBER  SYSTEM*  TOO. 

THE  OUTPUT  VALUES  IS  STORED  IN  THE  FILE. 

EACH  COMPONENT  IS  THE  SECOND  DEGREE  FILTER 


>**«-»**«*««*********»»*»*****#*«*******#*****«'*•***#******«««#««#*#«* 

INTEGER  QUTF I LE ( 7 ) *  OUTF ( 7 ) ,  OUTD <  7 ) *  OUTA ( 7 ) ,  OUTFM ( 7 ) 

INTEGER  X<0: 20.  140).  H<0:  20,  140),  PP<0: 20. 140). YC(0.  20,  140) 
INTEGER  P (0:  20,  140),  SS(0:  20.  140),  YY(0:  20,  140) 

‘  INTEGER  IW.  NC,  CW,  S,  F.  RF,  RR,  JB,  JA.  QQ 
******** B I NERY  FILTER  COEFFICIENTS  ARE  READ  BY  MEANS********** 

OF  CHANNEL  <1) 

ACCEPT" BINERY  COEFFICIEN  FILE  NAME  :  " 

READ( 1 1, 50)0UTFILE< 1 ) 

50  FORMAT (SI 5) 

CALL  OPEN (1, OUTF ILE,  1.  IER) 

READ ( 1 ,  60 ) CW  • 

60  FORMAT (20X.  15) 

READ< 1. 60)NC 
DO  70  1=0,  (NC-1) 

70  READ d , 80 ) <  H  < I .  K ) ,  K~ 1 ,  CW ) 

80  F0RMATU2X,  140(11)) 

CALL  CL0SE(1,  IER) 

IF( IER.  NE.  1)TYPE”CL0SE  FILE  ERROR",  IER 


<;*»*-*«.******COEFFICIENT*********************** 

10  FORMAT ( S15) 

30  FORMAT (20X. 15)  • 

C*********FIRST, SECOND  ORDER  FILTER  OUTPUT  IS********* 
C  ’ STORED  IN  THE  FILE  BY  MEANS  OF 

C  CHANNEL  (2) 

ACCEPT  “FIRST  SECOND  ORDER  FILTER  OUTPUT  :  “ 

READ (1 1 .  905 ) OUTF (1 ) 

905  FORMAT (SI 5) 

CALL  DFILW(OUTF.  IER) 

IF ( IER.  EQ.  13) GO  TO  906 

IF(IER.NE.  1 >TYPE“DELETE  FILE  ERROR",  IER 


906  CALL  CFILW10UTF, 2, IER )  " 

IFUER.NE.  1  >TYPE‘‘CREATE  FILE  ERROR’S  IER 
CALL  OPEN <2,  OUTF>  3*  IER) 

IFUER.NE.  1  )  TYPE  “OPEN  FILE  ERROR’S  IER 
RF*0 

C******* THE  INPUT  TO  THE  FILTER  IS  READ  FROM******** 

C  THE  FILE  BY  MEANS  OF  CHANNEL ( 1 > 

C  .  .  ‘  ' 

412  . ’ACCEPT”BINERY  INPUT  FILE  NAME  :  —  '  . 

READU1,  10>QUTFILEU  > 

CALL  OPENU.  OUTFILE,  1,  IER) 

IF ( IER.  NE.  1)TYPE  ’’OPEN  FILE  ERROR’S  IER 
IF  t  RF,  EQ.  0)GQ  TO  578 
REWIND  1 

b78  READ ( 1 ,  30 ) S 
RE.AD<  1.  30)  IW 
WW-2*IU 
WWW*2*IWV1 
lWW-IW+1 
WWl=2*IW+2 
CWW=CW+1 

DO  400  1*0,  <S-1 ) 

DO  410  K=IWW. WWW 
X ( I , K ) —O 
XA<  I,  K)«0 
410  CONTINUE 

DO  401  M=*0,  <  NC~1  ) 

IF(M.  GT.  I) GO  TO  400 
DO  402  K=l,WWW+2 
SS<M,  K>*0 

402  CONTINUE 

401  CONTINUE 

400  CONTINUE 

DO  430  M=0,  <NC“1 ) 

DO  440  K=CWW, WWW 
440  H<M*  K>e0  ' 

430  CONTINUE 
40  FORMAT  < 12X,  140< 1 1 > ) 

C  #**##**#*#*♦##*######*#****  ##**#*###*#**♦***#******#**# 

c 

C  THE  BEGINING  OF  CONVOLUTION  FOR  EACH  SECOND 

C  ORDER  FILTER 


J*0 

IF< RF.  EQ.  0)CQ  TO  513 
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n  c>  r> 


*******next  second  order  filter  output  is  stored  in  the****** 

FILE  BY  MEANS  OF  CHANNEL<3> 

ACCEPT  "NEXT  SECOND  ORDER  OUTPUT  FILE  :  " 

READ< 11< 10)0UTD< 1 ) 

CALL  DFILW<OUTD.  IER) 

IF(IER.  EQ.  13)G0  TO  584 

IF<  IER.  NE.  I ) TYPE  "DELETE  FILE  ERROR"..  IER 
584  CALL  CFILUKOUTD,  2.  IER) 

IF<  IER.  NE*.  1  )TYPE"CREATE  FILE  ERROR*?,  IER  ' 

CALL  OPEN <3,  OUTD,  3.  IER) 

IF< IER.  NE.  1 ) TYPE" OPEN  FILE  ERROR", IER 
513  RR=0 
JB=0 
433  JB=J 

DO  435  J=JB,  <  JB+9 )  * 

DO  436  K5-1 .  WW1 
YY<J.  K5)-0 
YC(J,K5)-0 
436  CONTINUE 

435  CONTINUE 

IF<JB.  EQ.  297>G0  TO  467 
IFCJB.EQ.  1 98 ) GO  TO  467 
IF(JB„EQ.  99) GO  TO  467 
IF<RR.  EQ.  400)G0  TO  458 
IF1RR.EQ.  300)G0  TO  458 
IFCRR.  EQ.  200) GO  TO  458 
IF (RR.  EQ.  100)00  TO  458 

C#*********THE  LOOP  20  IS  USED  TO  READ  INPUT************ 

C 

467  DO  20  JA=RR» <RR+9> 

20  READ(  1,  40,  END=*41»  ERR«929>  (  X  <  JA,  K),  K"l,  IW) 

41  CONTINUE 

C 

C******#***END  OF. LOOP  20*********************** 

458  RR=JA 

DO  921  J=JB,  < JB+9) 

IF(RF.  GT.  (NC-1))G0  TO  196 
IF< J.  GT.  <S-1))G0  TO  932 
1  DO  110  M“0,  2 

LL-J-M 

IF<LL.  LT.  0)C0  TO  921 
IF<  J.  GE.  <  JB+9)  )G0  TO  433 
DO  960  II*1,WWW*2 
P(M, II )=0 
SS(M,  1 1 )=0 

960  CONTINUE  '  ' 


Ci  Cl 


C-*********THE  LOOP  130  IS !  USED  FOR  BINERY  MILTIPLICATION******** 


121 

DO  130  R*2,  CW 

KK*CW-R+2 

IF(H<M,  KK).  EQ.  1  >GQ  TO  150 

DO  160  K*2, WWW 

K1=WWW— K+2 

160 

4  P<M,K1  +  1)=P<M,K1) 

CONTINUE  ♦ 

, 

P  <  M,  2  )  *0 

150 

GO  TO  130 

DO. 180  JU*2,  WWW 

II=WWW-JJ+2 

P(M,  11 )*X(LL,  1 1 )+P (M,  II) +SS ( M 
1F<P(M,  II).  LT.  2) GO  TO  180 

P<M» II)*P<M, II) -2 

180 

SS-<M,  II-1)*1 

CONTINUE 

764 

IF(SS(M,  1  ).  EQ.  0)G0  TO  121 

DO  528  K*2, WWW 

Kl=WWW-K+2 

528 

f  <M» Kl  +  1 )=P<M,  K1 ) 

CONTINUE 

130 

P  <M, 2)*1 

GO  TO  121 

CONTINUE 

***********  *END  OF  LOOP  130************* 

DO  190  11*2, WW 

190  P<M»  II)*P(M,  1 1 •«- 1 ) 

IF(H(M,  1 ) .  EQ.  X(LL,  1 )  )G0  TO  240 
P  <M,  1 )  =  1 
GO  TO  250 

240  P  <  M,  1 )=0 

C#*****#**THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  OF  P********* 


250 


620 

610 


602 


603 


IF(P(M»  1).  EQ.  0)G0  TO  600 
DO  610  11*2, WWW 

IF<P<M,  II).  EQ.  0)G0  TO  620 
P <M»  II)*0 
GO  TO  610  ' 

P <M,  II  )  =  1 
CONTINUE 

DO  602  11*1,  WWW-1  r 

PP (M, II)*0 
SS(M,  II )*0 
CONTINUE 
PP (M, WWW)*1 
SS(M,  WWW)*0 
DO  603  11*2, WWW 
J J=WWW— I 1 +2 

P(M.  JJ)*P<M,  JJH-PP<M,  JJ )  +SS  <  M,  JJ> 
IF  (P  <M, UU) . LT,  2) GO  TO  603  r 
P(M, UJ)-P(M,  JU)-2 
SS<M,  JJ-1  )«1 
CONTINUE 
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a  ci 


JJ=WWW-II+1 
P ( M» JJ+1 )=P<M. JJ) 

201  CONTINUE 

P  <M»  1 >=0 
C 

C*#*********END  OF  THE  TWO'S  COMPLEMENT  OF  P******  * 

C 

C*******THIS  PART  IS  USED  FOR  BINERY  ADDITION************* 

C 

DO  209  11=1# WW1 
209  SS  <  M.  II)  =0 

DO  200  "J\i=2»  WW1  A  , 

II=WW1-JJ+1 

YY<J» 1 1 )=YY(  J.  II >+P (M» 1 1 )+SS(M» II) 

IF<YY<J.  II).  LT.  2>G0  TO  200 
YY<J. II)=YY<J,  II)-2 
SS<M. II-1>=1 
200  CONTINUE 

IF<SS<M.  1)  .  EQ.  1)G0  TO  701 
1F(SS<M>  2) .  EQ.  1)00  TO  701 
GO  TO  184 

701  DO.  678  11=  1.  WWW 

‘  JJJ-WWW-II+1 

YY(  J#  JJJ+1  )»YY<‘J.  JJJ) 

678  CONTINUE 

YY<J. l)=0 

■*•*  ■*■*■**•****  ADDITION**************************** 

184  IF(M.  EQ  2)00  TO  798 

IF<LL.  EQ.  0)00  TO  .798 
GO  TO  110 

798  DO  183  11=1. WWW 

U33  YC(J» II)=YY<J* II+l) 

IF(YC(J.  1).  EQ!  0)60  TO  800 
DO  810  11=2.  WWW 

IF(YC<J.  II  >.  EQ.  0)G0  TO  820 
YC  ( J*  II)  =0. 

GO  TO  810 

820  YC< J. II )=1 

810  CONTINUE 

DO  819  11  =  1.  WWW-1 
•  PP<J. 1I)=0  * 

SS<J. II)=0 
81.9  CONTINUE 

PP<U. WWW)=1 
SS<U.  WWW)=0 
DO  829  11=2. WWW 
JJ=WWW-II+2 

YC< J. JJ)=YC< J. UU)+PP< J.  JJ)+SS< J.  JJ) 

IF(YC<  J.  JJ).  LT.  2) GO  TO  829 
YC  <  J. JJ)=YC< J*  JJ)—2 
SS(J. JJ-1)=1 

829  'CONTINUE  ' 

800  CONTINUE 
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IF < RF.  GT.  0 ) GO  TO  588 

WRITE <2,  923)  J,  <YC<  J,  JJ),  JJ=1,  WWW) 

IF  <  J.  EQ.  <  S-l )  )  GO  TO  654 
GO  TO  932 

654  CALL  CLOSE (2.  IER) 

IFUER.  NE.  1>TYPE"CL0SE  FILE  ERROR",  IER 
C  .  *  ... 

C*********WRITTEN  IS  COMPLETED  FOR  FIRST  SECOND  ORDER  FILTER******** 
CALL  CLOSE (1,  IER) 

IFIIER.  NE.l>TYPEuCLOSE  FILE  ERROR-.IER  < 

C 

C********READ  IS  COMPLETED  FOR  INPUT  TO  THE  FILTER******* 

GO  TO  932 

588  WRITE (3.  923 )J»  (YC<  J#  JJ),  JJ=1,  WWW) 

IF<  J.  EG.  <S-l))GO  TO  359 
932  IF(  J.  NE.  S-DGO  TO  110 

DO  934  JJ=1,CW 

H < 0» JJ)=H!RF+3,  JJ) 

H< 1j JJ)=H!RF+4«  JJ) 

H( 2/ JJ)=H!RF+5» JJ) 

934  CONTINUE 

RF*RF+3 

IF  <  RF.  GT.  3)  GO  TO  196 
GO  TO  412  * 

110  CONTINUE 

921  CONTINUE 

359  CALL  CLOSE <3,  IER) 

IF  !  IER.  NE.  1  )TYPE"CLOSE  FILE  ERROR",  IER 
C 

C**********WRITTEN  IS  COMPLETED  FOR  SECOND  SECOND  ORDER  FILTER***** 

C 

c  End  of  convolotion  of  each  second  order  filter 

0 

c *************************************************************** 

915  FORMAT! 2X,  15) 

916  FORMAT! IX,  15) 

910  F0RMAT!4X,  "I",  5X,  "UNGUANTI ZED  OUTPUT" ) 

911  F0RMAT14X,  5X,  " - "  ) 

923  FORMAT! IX,  14, 3X,  140! Il>) 

C*******FIRST  SECOND  ORDER  FILTER  OUTPUT  IS  READ****** 

C  FROM  THE  FILE  BY  MEANS  OF  • 

C  CHANNEL! 2) 


ACCEPT"FIRST  SECOND  ORDER  FILTER  OUTPUT  :  " 

READ! 11, 905)0UTFILE! 1 ) 

CALL  OPEN! 2, OUTFILE,  1,  IER) 

IF!  IER.  NE.  1)TYPE’'0PEN  FILE  ERROR",  IER 
REWIND  2 

ACCEPT" ENTER  THE  FILE  NAME  FOR  FIRST  SECOND  ORDER 
READ! 11, 10) OUTFM ( 1 ) 

CALL  DFILW!OUTFM, IER) 


y.v 


IF< IER.  EQ.  13)G0  TO  386  :  ~ - - 

IF< IER.  NE.  1 )TYPE"DELETE  FILE  ERROR",  IER 
38 ci  CALL  CF1LW< OUTFM, 2, IER) 

IF( IER.  NE.  1 )TYPE"CREATE  FILE  ERROR",  IER 
CALL  OPEN <6,  QUTFM, 3,  IER) 

IF<  IER.  NE.  1>TYPE  "OPEN  FILE  ERROR",  IER 

GG— 0 

J=»0 

JA=0  . 

312  RR«0 

JB =0  1 

IF<JB.  EG.  0>G0  TO  354. 

221  JB=J*1 
354  RR«JA 

IF (QQ.  NE..  0)G0  TO  316 

C*******»*THE  LOOP  .192  IS  USED  TO  READ  THE  FIRST  SECOND******** 

C  f  ORDER  OUTPUT 

C 

DO  192  JA=RR,  <  RR+9  > 

DO  213  JJ=1,WWW 

213  YYtJA. JJ>=0 

READ (2,  923,  END*193.  ERR=929) J,  <  YY(  JA.  K5),  K5«l,  WWW) 

192  CONTINUE 

193  CONTINUE 

C 

C»**********END  OF  LOOP  192*************************** 

DO  214  JL=JB, (JB+9) 

DO  215  JJ=1.WWW 
„  YC1JL,  UJJ-0 
SS(JL.  JJ)=0 
215  CONTINUE 

214  CONTINUE 
GO  TO  313 

316  IF <  J.  CE.  9)G0  TO  364 

C******»**THE  ,OUTPUT  OF  THE  NEXT  SECOND  ORDER  FILTER************ 
C  '  IS  READ  FROM  THE  FILE  BY  MEANS  OF 

C  CHANNEL ( 3 ) 

C 

ACCEPT."NEXT  SECOND  ORDER  OUTPUT  FILE  :  " 

READU1,  lO)OUTD(l)  * 

CALL  0PEN<3. OUTD, 1, IER) 

IFUER.NE.  1  )TYPE"OPEN  FILE  ERROR",  IER 
REWIND  3 


C****»******THE  OUTPUT  OF  THE  FIRST  SECOND  ORDER  FILTER********** 
C  IS  READ  FROM  THE  FILE  BY  MEANS  OF 

C  CHANNEL (6) 


ACCEPT "FIRST  SECOND  ORDER  OUTPUT  FILE  :  " 

READ  <11,  905 ) OUTFM  < 1 ) 

CALL  0PEN<6,  OUTFM,  1,  IER) 

IF ( IER.  NE.  1 )TYPE"OPEN  FILE  ERROR",  IER 
REWIND  6 


o  n 


C********THE  OUTPUT  OF  THE  PARALLEL  STRUCTURE  FILTER  I S ***** ***■» «* 

WRITTEN  TO  THE  FILE  BY  MEANS  OF 
CHANNEL  (  5  > 

ACCEPT "ENTER  PARALEL  OUTPUT  FILE  STRUCTURE  :  " 

READ (11.  905 )QUTA( i ) 

CALL  DFILWtOUTA, IER) 

IF(IER.  EQ.  13)G0  TO  365 

IF<  IER.  NE.  1  )TYPE  "DELETE  FILE  ERROR".  IER 
365  CALL  CFILW(OUTA. 2. IER) 

IF (IER.  NE.  1) TYPE" CREATE  FILE  ERROR".  IER 
CALL  OPEN <5.  OUTA.  3.  IER) 

IF<  IER.  NE.'  1  )TYPE"OPEN  FILE  ERROR".  IER  ' 

**********THE  LOOP  323  IS  USED  TO  READ  THE  FIRST********* 

AND  SECOND''  ORDER  OUTPUT  FILTER  * 

3o4  DO  323  JA=RR,  (RR+9) 

DO  366  JJ=1,WWW  ** 

3«j6  YY(JA,  JJ)-0 

IF  (  JA.  OT.  t  S— 1  )  )  00  TO  929 

READ (3.  923.  END=324,  ERR=929)J,  (YYtJA,  K9).  K9=l,  WWW) 

READ  <  6.  923,  END=324,  ERR=929 )  J,  ( YC  ( JA,  KK5 ) . KK5= 1 ,  WWW ) 

3S!3  CONTINUE 
324  CONTINUE 

C *******»*END  OF  LOOP  323************ 

DO  314  J=JB, (JB+9) 

DO  315  JJ=1,WWW 
315  SS(J, JJ)=0 

314  CONTINUE 
313  DO  194  J=JB, (JB+9) 

DO  195  K=2, WWW 
JJ=WWW-K+1 

YC ( J. JJ)=YC( J, JJ)+YY( J.  JJ) +S5( J,  JJ> 

IF(YC(  J.  JJ).  LT.  2)00  TO  1?5 
YC( J, JJ)=YC i J,  JJ)-2 
SS(J. JJ-i)«l 
195  CONTINUE 

IF(SS(J.  1).  EQ.  1)00  TO  216 
”  IF(SS(  J,  2).  EQ.  1  )G0  TO  216 
GO  TO  217 

216  DO  218  JJ=1,WWW 

II=WWW-JJ+1 

YC(  J,  II  +  l  )=»YC<  J,  II  > 

218  CONTINUE 

217  IF(QQ.  EQ.  0)00  TO  369 

WR ITE ( 5,  923)  J.  (YC(  J.  JJ),  JJ*1,  WWW) 

GO  TO  380 

369  WR  ITE  ( 6,  923)  J.  (YC(J,  JJ),  JJ=1,  WWW) 

388  IF(  J.  GE.  (S-l  )  )G0  TO  311 

1F(  J.  OE.  ( JB+9 )  )G0  TO  221 
194  CONTINUE 


Ill 


QG-QQ+ 1 
J-=-l 
J8-0 
JA-0 

CALL  CLt)SE<6*  IER ) 

IF (  IER.  ME.  1  >TYPE"CLOSE  FILE  ERROR",  IER 

WRITTEN  OF  THE  FIRST  SECOND  ORDER  FILTER 
*****************IS  COMPLETED*************** 
IF1QG.  GE.  2) GO  TO  373 
GO  TO  312 

J/3  CALL  CLOSE! 5.  IER) 

IF<  IER,  NE.  1) TYPE  "CLOSE  FILE  ERROR",  IER 

WRITTEN  OF  THE  PARALLEL'  FILTER  OUTPUT  » 
*************  IS  COMPLETED********************** 

929  STOP 

END  ,  * 
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FILE: 


DIRECTORY: 


LANGUAGE : 


DATE: 


AUTHOR : 


SUBJECT: 


FUNCTION: 


PROGRAM  USE: 


USER'S  MANUAL  PROGRAM  NES 


TNES 


DP4 : OWEN 
FORTRAN  5 
September  1983 
Harun  Inanli 

Calculating  the  Nested  Filter  Output 
Response . 

This  program  is  used  to  calculate  the 
nested  filter  output  response  based  on 
the  equation  below: 

Y(N)  =  H(0) (X(N)  +  H( 1 ) (X(N-1 ) 

+  ...  +  H(M)X(N-M) ) ... ) 

where  N  and  M  =  number  of  input  and 
coefficient,  respectively;  Y  *  output; 
X  *  input;  and  H  =  coefficient. 

The  filter  coefficients  and  inputs  are 
iken  from  two  different  files.  The 
necessary  addition  is  carried  out  in 
two's  complement.  Then,  the  output 
will  be  stored  in  binary. 

The  program  is  loaded  by  the  following 
command : 

RLDR  TNES  @FLIB@ 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 

TyP,e 

1.  Two's  Complement  of  Binary  Numbers 

2.  Two's  Complement  Addition 

3.  Binary  Multiplication 

4.  Shift-left  and  Shift-right 

5.  FIR  Nested  Form  Structure 


Figure 


■  _« .  ■  .  v  V  V  V  . 


•  ,  -  ,  ’  i  "  •  ■  »  '  *»  *, 


EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


TNES 

NESTED  STRUCTURE  BINARY  COEFFICIENT  FILE  NAME:  NC 

BINARY  INPUT  FILE  NAME:  TI 

UNQUANTIZE  BINARY  OUTPUT  NAME  FOR  NS:  NO 

The  contents  of  the  file  TI  in  Appendix  B  is 
explained.  The  file  NC  which  has  very  similar  data  to  the 
file  TC  explained  before,  represents  the  nested  filter 
coefficients  in  binary.  The  file  NO,  representing  the 
Nested  filter  output  response,  has  also  the  similar  data 
explained  in  Program  TO. 
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u 

STUDV  OF  F INI  It  WORD  LENGTH  EFFECTS  IN  SOME  SPECIHL  2/2 

CLASSES  OF  DIGITAL  FILTERS(U)  AIR  FORCE  INST  OF  TECH 
WRIGHT-PATTERSON  RFB  OH  SCHOOL  OF  ENGI.  .  H  INRNLI 
DEC  83  AFIT/GE/EE/83D-32  F/G  9/2 


NL 


r  «'ft^**#«******^«************tt****«**«*****«****#***#**#**tf**#**.|t«* 

PROGRAM  :  NES  . 

AUTHOR  HARUN  1NANL1 

DATE  SEPTEMBER  S3 

LANGUAGE:  FORTRAN  5 


£ 

, 

.*.■ 

i. 

PROGRAM  : 

4j 

\vV 

V. 

AUTHOR 

DATE 

0 

LANGUAGE: 

**  - 

:v: 

C 

FUNCTION: 

t. 

c 

• 

C  FUNCTION:,  THIS  PROGRAM  IS  USED  TO  CALCULATE  THE  NESTED 

C  FILTER  OUTPUT  IN  BINERY.  THE  INPUTS  TO  THIS 

^  PROGRAM  ARE  TAKEN  FROM  THE  FILES.  THEY  CONTAIN 

C  NESTED  STRUCTURE  COEFFICIENTS  AND  INPUT  VALUES 

C  IN  BINERY  THE  OUTPUT  OF  THE  NESTED  STRUCTURE  IS 

STORED  IN  THE  FILE  IN  BINERY  SUCH  THAT  WORD  LENG1 
OF  THE  OUTPUT  TWO  TIMES  BIGGER  THEN  THE  WORD 

C  LENGTH  OF  THE  INPUT; 

'  1 

'T************************************************************#*********^ 

INTEGER  0UTFILE(7),  OUTF (7), XX<20,  140), Y(20,  140). XI (20,  140) 

INTEGER  X (20,  140), H(20. 140), P(20,  140), SS(20,  140),  PP(20,  140) 
INTEGER  IW.  NC,  CW,  S,  J.  1,  Jl,  R,  K,  II,  KKK,  F.  Q,  IA.  IB,  IC.  WW1,  CWW 
_*******THIS  PART  IS  USED  TO  READ  THE  NESTED  STRUCTURE*****#*# ****** 

:  COEFFICIENT. 

>- 

ACCEPT" NESTED  STRUCTURE  BINERY  CQEFFICIEN  FILE  NAME  :  “ 

READ( 1 1 .  50) OUTFILE! 1 ) 

SO  FORMAT (S15) 

CALL  OPENd. OUTFILE,  1,  IER ) 

READ(.l,  60)NC 

READ!1,60)CW  • 

c.0  FORMAT!  5X,  14) 

DO  200  I J=0. (NC-i ) 

DO  201  JJ=1.  (2*CWd) 

201  H( I J»  JJ)=0 

200  CONTINUE 
1*0 

DO  70  1=0. (NC-i ) 

70  READ!  1.  80)  (Q.  (H(  I.  K)  ,  K*l,  CW)  ) 

SO  FORMAT!  IX.  14.  10X,  140(H  )) 

CALL  CLOSEd.  IER) 

IFdER.  NE.  X ) TYPE"CLQSE  FILE  ERROR",  IER 

0 

C4»****«#«NESTED  COEFFICIENT********************** 

0 

C  * « *******CHANNEL  (1)  IS  USED  TO  READ  THE  INPUT******* 

C  FROM  THE  FILE 

C 

ACCEPT" BINERY  INPUT  FILE  NAME  :  " 

'  READ (11, lO)OUTFILE(l) 

10  FORMAT! S15)  • 

CALL  OPENd.  OUTFILE.  1,  IER) 

IF!IER.  NE.  1)TYPE"0PEN  INPUT  FILE  ERROR  :  ".IER 
READ! 1,  30)  S 
30  FORMAT !20X,  15) 

READ! 1,  30) IW 


vww! 


V.T.7  7, 


<'  -.'  -1.*’.'  I  *1'.*.,.*.,.*.‘.  \P.«.  A".  '.■.  A  !  i  [y\ I 


***c HANNfcL (  1  )  UNDER"  THE  NAMETJF^‘OUTF-rS_  USED  TO  WRITE********* 
THE  OUTPUT  VALUES 

ACC£PT"UNGUANTI ZED  BINERY  OUTPUT  NAME  FOR  NS  :  ■ 

READdl,  100)06TFU) 

100  FORMAT (81 5) 

CALL  DFILWIOUTF, IER ) 

IF <  1ER.  EQ.  13)00  TO  101  ; 

IFdER.  NE.  i) TYPE “DELETE  FILE  ERROR'S  IER 
iwi  CALL  CFILWfrOUTF,  2.  IER) 

IF( IER.  NE.  1 )TYPE"CREATE  FILE  ERROR", IER 
‘.‘CALL  QPEN(2»  QUTF.  3,  IER)  __ 

IFdER.  NE.  1)TYPE"0PEN  FILE  ERROR", IER 
WRITE (2,  980) IW 
WRITE (?,  981 )S 
9."j0  FORMAT  (2X,  15) 

9b l  FORMAT (IX.  15) 

WW=2*IW 

WWW=2*IW+1 

iww=iwd 

WW 1=2* I W+2 

cww=cwn 

IB=0 

IA=0 

4  IC=0  ♦ 

H=0  _  A 

-t  «««*««THE  LOOP  400  IS  USED  TO  FIND  THE  OUTPUT************ 

FOR  EACH  SAMPLE 


400  I=R  ’  . 

IFd.  EG.  360)00  TO  434 
IFd.EG.  300)00  TO  434 
IFd.  EQ.  240)00  TO  434  ' 

IF  (I.  EQ.  180)00  TO  .434 
IFd.  EQ.  120)00  TO  434 
IFd.  EQ.  60)00  TO  434 
IFdA.  EQ.  360)00  TO  433 
IF<  I  A.  EQ.  300)00  TO  433 
IFdA.  EQ.  240)00  TO  433  . 

IF(IA.  EQ.  180)00  TO  433 
IFdA.  EQ.  120)00  TO  433 
IFdA.  EQ.  60) GO  TO  433 

*.  *w****THE  LOOP  20  IS  USED  TO  READ  THE  INPUT**** 
C  10  AT  A  TIME 


434  DO  20  J=IA. <IA+9) 

20  READU.40iEND=41)(X<V«KK>,KK=l.  IW) 

41  CONTINUE 


» «-«***»END  OF  LOOP  20************************ 


<:  .-v 

*  >*>■ 


*******THIS  PART  IS  USED  TO  FIND  THE  Y(O) ***###****#*# 


IF(  ID-  EO.  1  )GO  TO  412 
DO  356  JJ»< IW+1 ># WWW 
X(0  ,J>J>»0  ' 

DO  413  JJ-l.WWW 
Y(0»JJ)«0 

SS(0.,JJ)»0  •  . 

CONTINUE 
DO  414  N*2,  CW 
KK-CW-N+2 

IF(H<0.  KK>.  EG.  1)60  TO  415 
DO  416  JJ“2» WWW 
Kl-WWW-K+2 
,  Y(0,K1+1)=Y(0.K1) 

CONTINUE 
Y(0/  2  )--0 
GO  TO  414 
DO  417  JJ=2.  WWW 
UUJ*WWW-JJ+2 

Y(0, JJJ)=Y<0. JJJ)+SS<0,  UJJ)+X<0,  JJJ) 
IF<Y(0, JJJ).  LT.  2>G0  TO  417 
Y(0. JJJ)*Y<0.  JJJ)-2 
SStO, JJJ-1 )*1 
.  CONTINUE 

IF(SS<0.  1).  EG.  OJCO  TO  418 
DO  419  K=2,WWW 
K1*WWW— K+2 
Y(0. Kl+1)-Y(0,  Kl> 

CONTINUE 
Y(0#  2)  “l 
GO  TO  410 
CONTINUE 

WR I TE < 2, 923 ) O*  (Y<0, JJ> , JJ=1> WWW) 

IB*1 


v 

*  •.  -a' 


C ***##f-*Y ( O )  IS  WRITTEN  INTO  THE  FILE********************** 
412  IA-J  . 

C*****#***THE  LOOP  401  IS  USED  TO  FIND  THE  OUTPUT****#**#*-* 
C  9  AT  A  TIME 

C  ’  .  > 

DO  401. R**X, <I+9> 

IF<R.  EG.  S)GO  TO  500 
IF(R.  EG.  IA)00  TO  400 
DO  501  L-l,  WU1 
XX (R.  L)«0 

-701  CONTINUE  * 

IF(R.  GT.  (NC-1))00  TO  310 

KKK«R 

F*0 

GO  TO  312  ' 

UO  KKK*NC 

F*R-NC 


;  IP 


DO  335  JJ-<  IW+1  >,  WWW 
_i  j 5  ,  X  JJ ) “0 

DO  770  JJ“ 1 * WWW 
T'70  XI  (R.  JJ)=X(R,  JJ) 

IC=»II 

IPXR.GE. <I+9))G0  TO  400 

C  * ******* THE  LOOP  110  IS  USED  TO  FIND  THE  OUTPUT******* 

1  AT  A  TIME. 


444 

449 


560 


111 


<.  i 


0 


1  16 


114 


113 


900 


112 


DO  110  II«F.  F-HMC-1  * 

IFtKKK.  OT.  <NC— 1 > ICO  TO  444 
J1=KKK-II 

00  TO  449  * 

J1»R—I I 

IF(  Jl.  LE.  0)G0  TO  401 
IF ( Jl.  GE.  NC) GO  TO  110 
DO  560  JJ-IWW.  WWW 
H( Jl<  JJ)*0 
DO  111  JJ*1,WWW 
'  SS<II,JJ>«0 
P<II*JJ)=*P 
CONTINUE 

**THE  LOOP  112  IS  USED  FOR  BINERY  MULTIPLICATION********* 


DO  112  N*2» 

KK-WWW— N+2  * 

IF  (H<  Jl/ KK).  EQ.  1)G0  TO  113 
DO  114  K-2.WWW 
K 1 “WWW— K+2 
P<II,K1*1)»P(II»K1) 

CONTINUE 
P<  II*  2)-0 
V  GO  TO  1 12 

DO  115  JJ»2,  WWW 
JJJ«WWty~JJ+2 

*  P<II*  JJJ)-P<II*  JJJH-XKII,  J J J >  +SS (II*  JJJ) 
IF(P<  II*  JJJ).  LT.  2) GO  TO  115 
P<II*  JJJ)»P(II,  JJJ) -2 
dS<II.  JJJ—  1 )  “  1 
\  CONTINUE 

I F  ( SSN  1 1  *  1 ) .  EQ.  0 )  GO  TO  116 
DO  900  Ks2*  WWW 
Kl-WWW-K+2 
•P(II.Kl+i)-P<II,Kl) 

*  ‘  CONTINUE 

P<  II*  2)*1  p 

GO  TO,  116 
CONTINUE 


_  669 

* 


0 *  »*******END  OF  LOOP  112« 

DO  669  JJ-2. 

P<II» JJ)-PtII* JJ+1) 

IF(  H(  Jl.  1>.  EG.  XI  <  1 1*  1 )  >G0  TO  IIS 
P<II*  1  )**1 
GQ  TO  119 
P<II.1)=0 

183  ’* 


h*** 


i  IS 


« **#******THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  OF  P****** 


IF<P<  II.  1).  EG.  0>G0  TO  1 20 
DO  121  JJ=2< WWW 

IF(P<II»JJ>.  EG.  0 ) GO  TO  122 
P<II.JJ)=*0  , 

GO  TO  121 
P  ( II,  JJ)«1 
CONTINUE 

DO  130  JJ«1. WWW-1 
PP<II. JJ>»0 

SS<I1.JJ)«0  i 

CONTINUE 
PP<II,WWW)»1 
SS(II.WWW)-0 
00  131  JJ»2,  WWW 
JJJ-WWW-JJ+2 

P( II. JJJ)*P(II. JJJ)+PP<II,  JJJ)+SS< II.  JJJ) 
IF(P(  II.  JJJ).  LT.  2) GO  TO  131 
P(II. JJJ)»PXII.  JJJ ) ”2 
SS<II.  JJJ-l)»l 
CONTINUE 


t>*********#*TWp  'S  COMPLEMENT  OF  P*****«*******«*********** 

0 

0*<m>*********THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  OF  X******** 


IF(XUII+1.  1).  EG.  0)00  TO  123 
DO  124  JJ=2,  WWW 

IF<X1(II  +  1.JJ).  EG.  0)G0  TO  126 
XlUI+l,  JJ)«0 
GO  TO  124 
Xi<XI+l> JJ>=1  ’ 

CONTINUE 

00  135  JJ=»1.  WWW-1 


00  135  JJ»1. WWW-1 
PPdf,  JJ)*0 
SS<II.0j)-=O 
CONTINUE 

PP<II,WWW)»1  , 

SS(II.WWW)-0 
DO  136  JJ*2.  WWW  ,  . 

JJJ-WWW-JJ+2 

XKXX  +  l.  JJJ)«X1  <  XI  +  1.  JJJ)+PP<II,  JJJ)+SS(II.  JJJ) 
1F< XI tlX+l.  JJJ).  LT.  2)G0  TO  136 
XI (II+l, JJJ)-X1 (II  +  l,  JJJ ) -2 
SS< I I. JJJ-1)»1 
CONTINUE 


►♦TWO'S  COMPLEMENT  OF  X***************** 
DO  137  JJ=1.  WWW 
JJJ-WWW-JJ+1 

XKII+l.  JJJ+1)“X1<II+1,  JJJ) 

CONTINUE 
XI  i  I  1  +  1*  1  )*0 


184 


.  »****#*##**THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  ADDITION********* 


9 


DO  138  JJ*l,WWi 

ss<ii.uJ)=o 

DO  140  JJ=2#  WW1 

JJJ-WW1-JJ+1 

XX<R, JJJ)»X1 < II+l,  JJJ)+P<  *1,  JJJ)+SS< II.  JJJ) 
IF<XX(R.  JJJ).  LT.  2)00  TO  140 
.  XX  (R,  J>1J)  *XX  (R,  JJJ) —2  t 

SS<II,  JJJ-11-1 
CONTINUE 

IF<SS<II,  1).  EQ.  1>G0  TO  949  * 

IF(SS(II,2).  EQ.  1>G0  TO  949  -v 

DO  948  JJ*1.  WWW 

XX<R, JJ)»XX<R,  JJ+1 ) 

IF(XX<R,  1 ).  EQ.  0)G0  TO  678 
DO  148  JJac2,  WWW 

IF(XX(R,  JJ).  EQ.  0)60  TO  149 
XX<R. JJ)=0 
GO  TO  148 
XX  <R,  JJ>“1 
CONTINUE 

DO  ISO  JJ*1,  WWW-1 
PP  <R, JJ)«0 
SS(R,  JJ)»0 
CONTINUE 
PP  (R,  WWW>=*1 
SS  <  R ,  WWW )  *0 
DO  151  JJ»2. WWW 
JJJ-WWW-JJ+2 

XX (R* JJJ)»XX<R.  JJJ)+PP<R.  JJJ)*SS<R.  JJJ) 
IF<XX<R, JJJ).  LT.  2)  GO  TO  151 
XX  <  R, JJJ)*XX(R^JJJ)-2 

SS(R, JJJ— 1 )*1  > 

CONTINUE 


►  TWO'S  COMPLEMENT  ADDITION************************ 
DO  743  JJ-l.WWW 

XI < 11*1, JJ)*XX<R,  JJ) 

DO  695  JJ»1.WWW  '  • 

XX  (R,  JJ>*=0 

IFdI.EQ.  <R— 1 )  )G0  TO  153 
GO  TO  110 
DO  610  JJ*i,WWl 
Y(R,  JJ)*0  5 

»  SS(R, JJ)«0  » 

CONTINUE 
DO  600  N«2.  CW 
*  KK-CW-N+2 

IF(H(0«  KK).  EQ.'l  )G0  TO  601 
DO  602  K-2,  WWW 

Kl-WWW-K+2  ’ 

Y(R»Kl*l> **  Y < R .  K 1 ) 

CONTINUE 


.yz+.s.'-'.'' 


I  i\J  1 


Y<R,  2)-0 
CO  TO  600 
CO  603  JJ-2,  WWW 
JJJ=WWW-JJ+2 

Y(R*  JJJ)=*Y(R*  JJJ>+SS(R*  JJJ)+X1  <  1 1  -*-1  #  JJJ) 
.IF(Y(R»  JJJ).  LT.  2)00  TQ  603 
Y(R* JJJ)«Y(R.  JJJ ) —2 
.  «  SS(R* JJJ-1 )al 
CONTINUE 

IF(SS(R*  1 ).  EQ.  0)G0  TO  604 
DO  930  K-2»WWW. 

KiiWWW-K+2 

Y<R.K1+1>*Y<R»K1>  . 

.  CONTINUE 
Y(R*2>=1 
00  TO  604 
CONTINUE 
DO  690  JJ*2. WWW 
Y(R, JJ)*Y(R,  JJ+i ) 

,  IF (H<0»  1 ).  EQ.  Xl(im>  1)  >00  TO  620 
Y(R* 1 )=1 
GO  10  621 
Y(R. 1)»0 

WRITE (2* 923 )R*  <  Y ( R »  J J ) *  JJ* 1 *  WWW ) 

DO  888  B*F*  <  F+NC-1 ) 

DO  777  JJ=»1.WWW 

X1<B*1»  JJ)«X<0*i*  JJ> 

CONTINUE 

CONTINUE 


>*END  OF  LOOP  HO*************************** 
CONTINUE 


>**********«»*ENO  QF  LOOP  401*************************** 
40  FORMAT!  12X.  140(H))  . 

923  FORMAT ( IX* I4»  3X» 140 ( Il)> 

CALL  CLOSE  <1*IER> 

IF ( IER. NE. 1 >TYPE  "CLOSE  FILE  ERROR"* IER 
CALL  CLOSE (2* IER) 

IF( IER  NE.  1)TYPE  “CLOSE  FILE  ERROR"* IER 
300  CALL  EXIT 
END 


v.v.v.v.v. v.v.v 


USER’S  MANUAL  PROGRAM  ONES 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR : 
SUBJECT : 

FUNCTION: 


PROGRAM  USE: 


CNES 

DP4 : OWEN 
FORTRAN  5 

September  1983 

% 

Harun  Inanli 

Calculating  the  Cascade-Nested  Filter 
Output  Response. 

This  program  computes  the  cascade- 
nested  filter  output  response.  Each 
second-order  section  is  acting  as  an 
individual  nested  filter.  The  output 
of  the  first  second-order  section  will 
be  the  input  to  the  next  section.  The 
final  second-order  section  output  will 
be  the  output  response  to  the  cascade- 
nested  structure.  The  necessary  addi¬ 
tion  is  carried  out  in  two-s  complement 
and  the  output  will  be  stored  in  binary. 

The  program  is  loaded  by  the  following 
command : 

RLDR  CNES  3FLIB6 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type  Figure 

1.  Two's  Complement  of  Binary  Number  26 

2.  Two's  Complement  Addition  28 

3.  Binary  Multiplication  29 

4.  Shift-left  and  Shift-right  30 

5.  FIR  Cascade-Nested  Form  Structure  35 


EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


CNES 

NESTED  STRUCTURE  BINARY  COEFFICIENT  FILE  NAME:  NC 


BINARY  INPUT  FILE  NAME:  TI 
UNQUANTIZE  BINARY  OUTPUT  NAME  FOR  NS:  NO 
ENTER  THE  NEXT  SECOND  ORDER  SECTION:  NO 
NEXT  SECOND  ORDER  OUTPUT  FILE:  CNO 


The  content  of  the  file  NC  and  the  file  NO  in 
Program  NEX  and  the  TI  in  Appendix  B  are  explained.  The 
file  CNO,  representing  the  cascade-nested  form  output 
response,  has  the  similar  data  to  the  file  CTO  explained  in 
Program  COUT. 


£ 


$ 


P: 


2; 

£ 


8 

'£ 


v. 

k: 


o 


N  A 


*  «■*■>  ,•  «-**-**-e-*##*****«r**^***-?-v  ft***#**##***  .-  *  *«-***#*#«*****#****#*-( 


PROGRAM 
»*'.>  THOR 
DmTE 
l.ANGUAGt- 


FUNCTION: 


ONES 

HARUN  I  NANI .  I 
SEPTEMBER  83 
FORTRAN  5 

THIS  PROGRAM  IS  USED  TO  CALCULATE  THE  FILTE 
OUTPUT  BASED  ON  CASCADE-NESTED  STRUCTURE 
C  THAT  IS,  EACH  SECOND  ORDER  COMPONETS  OF  THE 

C  CCASCADE  FILTER  ARE  3  N  NESTED  FORM  THE  NEGa 

C  NUMBER  IS  REPERESENTt.D  IN  TWO'S  COMPLEMENT 

C  SUMMATION  IS  CARRIED  OUT  IN  THIS  NUMBER  S VS 

C 

D  *  ****###♦♦♦##♦*##*****####*#*#♦#*###♦*♦###**■###♦*#####**####*#  #*#*4 
INTEGER  0UTFILE<7>,  0UTF(7>.  #X(20»  140),  Y<20.  140).  XI  (20,  140) 
INTEGER  X  (20,  140),H(20,  140),  P(20,  140),  SS(20,  140),  PP(20,  140) 
INTEGER  IW,NC,  CW,  S,  J.  I,  Jl,  R,  K,  1 1,  KKK,  F,  RF,  Q,  QQ,  OUTD<  7 ) .  CWW 
ACCEPT’*NESTED  STRUCTURE  BINERY  COEFFICIEN  FILE  NAME  :  " 

READ( 1 1 ,  50 ) QUTF I LE ( 1 ) 

FORMAT (SI  5) 

CALL  OPEN!  1.  OUTFILE,  1,  IER) 

READ ( 1 ,  60 ) NC 
READ ( 1,  60)CW 
FORMAT ( 5X.  14) 

DO  200  1J=0, (NC-1) 

DO  201  JJ*1, (2*CW*1) 

H(  I J.  JJ)=»0 
CONTINUE 


50 


60 


201 

200 


C********BINARY  NESTED  FILTER  COEFFICIENTS  ARE  READ  BY********* 


C 

r 


MEANS  OF  CHANNEL! 1) 

DO  70  1=0, (NC-1 ) 

70  READ!  I,  80)  (Q.  (H(I»  K),  K=*i»  CW)  ) 

80  FORMAT! IX, 14, 10X, 140(11)) 

CALL  CLOSE (1,  IER) 

IF  (IER  NE.  1  )TYPE"CLQSE  FILE  ERROR",  J!R 

v.' 

C« ****** ****NESTED  FILTER  COEFFICIENT******* n *********** 

i 

i :■«  »****«  **THE  INPUT  TO  THE  FILTER  IS  READ  FRi.M*********** 

C  THE  FILE  BY  MEANS  OF  CHANNEL < i ) 

l* 

ACCEPT" BINERY  INPUT  FILE  NAME  :  " 

READ! 1 1, lO)OUTFILE(l) 

10  FORMAT (SI  5) 

CALL  OPEN! 1, OUTFILE,  i,  IER) 

IF!  IER.  NE.  1)TYPE*’0PEN  INPUT  FILE  ERROR  .  ",  IER 

READ!  1,30)  S 
.>0  FORMAT  (20X,  15) 

READ! 1. 30) IN 

fcr**********FIRST  SECOND  ORDER  FILTER  OUTPU .  IS  *************** 
STORED  IN  THF.  FILE  BY  MEANS 
CHANNEL (2) 

i 

ACCEPT "UNQUANT I  ZED  BINERY  OUTPUT  NAM;  FOR  NS 
R  F  AD ( 1 l »  1 00 ) OUTF ( 1 ) 
i\>  t  URMA  F  <  S 1 5 ) 


Vvw..-. 


*  »  <  ^  , 


189 


Dr  (LUtOUTF.  IER) 
if-  i  IER  EQ.  1  3 )  GO  TO  101 

TP- IER  NE. 1 ) TYPE" DELETE  FILE  ERROR”. I EL 
:  ;  CALL  CFILWtOUTF. 2,  IER) 

I F  ( IER  WE  1 ) TYPE"CREATE  FILE  ERROR”. I Eh 

\. l.L  OPEN  <  2,  OUTF,  0,  IER) 

ir t  IER  ME  1 > TYPE”OP£M  FILE  ERROR”.  IER 

OL -2* IW 

WWW— 2*1 W+l 

•  I W  *  i 

WW 1 -2* I W+2 

CWW^CW+1 

Cv»»+»****M*tt**»*«*«m«*«*«  ******************************** 

c 

THE  BEGINING  OF  THE  CALCULATION  OF  THE  OU  JT 
FOR  CASCADE-NESTED  STRUCTURE 

RF--0 

OG-O 

IB=0 

I  A  -0 

1C -0 
R-0 

IF ( RF  EQ.  0 ) GO  TO  513 
IF(RF.  GT.  (NC-l)JGO  TO  .500 

,  ,>  „*»*FIRST  SECOND  ORDER  FILTER  OUTPUT.  MH I  Cr  {***»#*♦ 

C  IS  INPUT  TO  THE  NEXT  SECOND  OR TER 

FILTER,  IS  READ  BY  MEANS  OF 
CHANNEL (2) 

ACCEPT'ENTER  THE  NEXT  SECOND  ORDER  SECTION  :  ” 

READUl,  1 00 )  OUTF  <  1  ) 

CALL  OPEN (2,  OUTF.  1,  IER) 

IF  < IER  NE.  1 )TYPE”OPEN  FILE  ERROR”.  IER 
REWIND  2 

******THE  NEXT  SECOND  ORDER  OUTPUT  IS  STORED******* 

C  IN  THE  FILE  BY  MEANS  OF  CHANNELS) 

ACCEPT"NEXT  SECOND  ORDER  OUTPUT  FILE  :  ” 

REaD( 11,  100 )OUTD  < 1 ) 

CALL  DFILWiOUTD. IER) 

IFvIER.  EQ.  t 3)G0  TO  504 

IFflER.  NE  1)TYPE  "DELETE  FILE  ERROR”, ILL 
:,o-  CALL.  CFILWCOUTD,  2.  IER) 

I F ( IER. NE .  I ) TYPE "CREATE  FILE  ERROR”, IER 
CALL  OPEN (3,  OUTD,  3,  IER) 

IF (IER.  NE.  1) TYPE" OPEN  FILE  ERROR",  IER 
WR I TE  < □, 91 5  > IW 
WR  f  TF<3, 916)S 
1.-  CON  f  INUE 

c  .  <  v***THIS  PART  IS  USED  TO  FIND  THE  OUTPUT  Of  *********** 

C  EACH  SECOND  ORDER  FILTER 

-K'C.  L  -  E 

IF  <  RF  NE.  0 > GO  TO  454 
IF  i  I  EQ.  360)00  TO  434 
I F ( l  EO  300 ) GO  TO  434 


.  *  .  *  L  V  •-  * 


«~l 

HI 


■  - 


.  EG.  Lf'10  >  GO  ro  434 
T  EG  130)00  TO  4J4 
it  •  l  EG  IPO  >00  TO  434 
:  t  i  EG  60)00  TCi  -134 
T>  I  A.  EG  360 )  GO  TO  433 
3  I«  EG  300) GO  TO  433 
H  I A  EG  ;'40)G0  TO  433 
;i  .  iA  EG.  lflvi  >  GO  TO  433 
U  ( 1A  EG  i 30 ) GO  TO  433 
ii  t  10.  EQ.  60)  GO  TO  433 

<  ***•*-  <•  THE  LOOP  20  IS  USED  TO  READ  INPUT  *■  *********** 


C 

4J4  DC)  20  J~I  A,  IIA+9) 

3  )  PEaDI  1.  40,  END=41  )  <X<U,  KK>,  KK=»1,  IW) 

■U  CONTINUE 

v. 

».  *-a-®  •»*«-»* END  OF  LOOP  20********************** 

a  TU  15 

aF  <  I.  EQ.  360)00  TO  16 
iF(i.  EQ.  300 ) GO  TO  16 
IE  <  I.  EQ  240)00  TO  16 
IF  <  I  EG.  180  )G0  TO  16 
If ;  l  EQ.  120)00  TO  16 
JF  (  1  EQ.  60)  GO  TO  16 
IT  •  I A  EG.  360)  GO  TO  17 
IF  <  I  A.  EQ.  300)00  TO  17 
IF  >  I A  EQ.  240)  GO  TO  17 
IF  (  f  A  EG.  100)00  TO  17 
IF  I  A.  EG.  120)  GO  TO  17 
IE! A  EG  6000  TO  17 

COOP  452  IS  USED  TO  READ  THE  INPUT  )F********** 
C  NEXT  SECOND  ORDER  FILTER 

C 

1  .i  DO  452  J-  1  A,  ( IA+9) 

■*VJ.  READ!  2,  923,  ENDS=453)Q*  (  X  (  J,  JJ)  .  JJ»1,  WWw) 

•4  5,  CONTINUE 

f  - 

r  :..*«>■*■*** *END  OF  LOOP  452*****»********»*****-**-«;- 

l  CONTINUE 

44- '-*»«-** THIS  PART  OF  THE  PROGRAM  IS  USED  TO*-,  ,******** 

C  FIND  THE  Y  <  O) 

1.’ 

13  I F  < ID  EQ.  1)00  TO  412 

ID  =1 

DO  356  JJ--IWW,  WWW 
i  r  •  •  i  u,  JJ )  ~D 

DO  413  JJ=1.WWW 
t  ( xJi  JJ  )  *0 
35 (O, JJ)~0 

4  1.)  CONTINUE 

DO  414  N=2. CW 
KK=CW— N+2 

IF(H(0,  KK).  EQ.  1  >00  TO  415 
418  DO  416  K=2» WWW 

K1=WWW-K*2 
Y  <  0»  K1H)=Y(0-  K1  ) 

4  1  -  CONTINUE 

•  <  0,  2 )  =0 

:  ! It  4  1  4 
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> 


£ 


CU  4  t  ?  JJ-2,  WWW 
JJJ^WWW--JJ+2 

Y  <0,  JJJ)=Y  (  0*  JJJ)  «->3S<0,  JJJ)+X<0,  Jv;  - 
IF  t  Y  <  O.  JJJ) .  LT.  2 ) 00  TO  417 
Y<0,  J  J.i)-Y  <  0,  JJJ)  -2 
SS<0, JJJ-1 >«1 

ont  i  Nur; 

i  F  < SS  ( 0 .•  1  > .  EQ  0 )  GO  TO  4iti 
Dll  41V  WWW 

K1--WWW--K+2 
Y<0. K1+1)*Y<0, K1 ) 


-+  .  9 

CONTINUE 

Y(0,  2)---l 

GO  TO  4  1H 

•! :  4 

CONTINUE 

I/O  303  JJ=i,WWW 
:  ,:'J  v'  ( 0,  JJ  i  ™Y  <  O,  JJ+ 1  > 

ImRF.  NE.  0)G0  TO  455 

UN  I  TE  (2,  V23)QQ.  <  Y 1 0,  JJ ) ,  JJ-1,  WWW) 

>.}(}  TO  412 

.33  WR  fTE<3.  ‘>23)00,  <Y<0,  JJ),  JJ--1,  WWW) 

''.•IP!.  IT  ION  OF  THE  Y<0  )************* *ir --*+**** 

il2  l. 

i)0  401  P  - 1,  (1+9) 

IF  1 RF.  EQ.  6) GO  TO  500 
IF<R.  EQ.  S>GO  TO  486 
DO  501  L~i, WW1 
01  XX(R,L)=0 

I F ( R .  or.  2) GO  TO  310 

KKK=R 

F--0 

00  TO  312 
J10  KKK=2 

F=R— 2 

1?  DO  355  JJ-1WW, WWW 

.,35  X(R,JJ)~0 

DO  770  JJ-l.WWW 
78  XI (ft, JJ)-X<R, JJ) 

IF(R  GE  < 1+9) )G0  TO  400 

*********  THE  LOOP  110  IS  USED  TO  CALCULATE  THE  OUTPUT********* 
OF  EACH  SECOND  ORDER  FILTER  °NE  BY  ONE 

DO  110  I I=F,  <F+2) 

IFiKKK.  GE.  2)60  TO  444 
Jl-KKK— 1 1 
GO  TO  449 
444  Jl-R-IJ 

449  IF(  JI  LE.  0)G0  TO  401 

DO  5c-. 0  JJ*IWW#  WWW 

560  H(J1,JJ)=0 

DO  111  JJal.WWW 
S5III,  JJ»=0 
P < 1 1 • J J ) -0 
111  CONTINUE 

»***■*»  THE  LOOP  112  IS  USED  FOR  BINERY  MILT  T  LICATZCN* *  * **»  ** 
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• 

DO  1  1  ■  *  N~2i  WWW 

> 

/  * 

KK  UWU~N-*2 

IFU-W  Jl,  Fid  EG.  « 

*  V*  l‘*  ■ 

J-V  vy 

»  i 

DO  114  K=2. WWW 

■f 

M  WWW-K<-2 

m 

P  *  U ,  K 1  l  P  <  1 

[i; 

.  :  T 

Cur  11  INUE 

ft 

P(II.2)>0 

ft 

GO  TO  112 

£y 

!  :  3 

DO  J  1  0  JJ=2,  WWW 

J.M-WWW-JJ+2 

P  (I  I ,  JJJ)=P<  II, JJJ) +X1 (II, JJJ- tSS(II,  JJJ) 

IP (P ( 1 1 j JJJ) .  LT  2)  GO  TO  115 
P( II. JJJ)=P< II, JJJ) -2 
SS(II, JJJ-l)=i 
l-.-.  CONTINUE 

IP  <SS<  1 1,  1).  EQ  0)60  TO  116 
DO  >00  K=2,  WWW 
K  1  -UWW-K-*2 
P- 1  I. Kl+1 >=P< II, K1 ) 

.0  CONTINUE 

P  (  1 1  >  2 )  - 1 
GO  f(J  116 
i  CONTINUE 

r.  OF  LOOP  112*******************  ** 

DO  66V  JJ=2,  WWW 

at*  P  ( 1 1 ,  JJ ) »P ( I I ,  JJ+1  ) 

IF  <H<Jt ,  1 ) .  EQ.  XI < I I ,  1 ) >00  TO  118 

P<  II*  1  >«1 
GO  TO  1  19 
!  ’  P  (  1 1 ,  1 > -0 

(  «■*+ »•****  **ir*THE  BEGINING  OF  THE  TWO'S  COMPLEMENT  OF  P********** 


IF<P!  iI-  1).  CQ.  0>G0  TO  120 
00  121  JJ=2, WWW 

IF(P<  II,  JJ>.  EQ.  0)GD  TO  122 
P< II. JJ)*0 
GO  TO  121 
P(II.  JJ)*1 
CONTINUE 

00  130  JJ-l.WWW-l 
PP <  1 1,  JJ)*0 
SSIII,  JJ>«0 
CONTINUE 
PP(II.WWW)-1 
SS< II. WWW ) =0 
00  131  JJ»2*WWW 
JJJ*WWW-JJ+2 

PtII, JJJ)*P(II,  JJJ)+PPCII,  JJJ)+Si  II,  JJJ) 
U-(P<  II.  JJJ).  LT.  2>G0  TO  131 
P  ( II,  JJJ ) -~P <  1 1 .  JJJ ) -2 
SS<  U.  JJJ-1  )-i 
CONTINUE 

i >F  TWO'S  COMPLEMENT  OF  p********** -  •  « 
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*THE  BEGINING  OF  TWO'S  COMPLEMENT  OF  L<II  +  1)*» ****** 


T  F  i  X  I  ( 1 1  ♦*  1 ,  1).  EG-  0) GO  TO  123 
00  12-1  JJ=2,  WWW 

1F<  XI  <  I  1  +  1,  UJ>  EG.  0>G0  TO  126 
x  j  •;  1 1  n.  jjy-~ o 
GO  10  124 
XlUIM.JJ)-fl 
■  ♦  CONTINUE 

DO  13‘.>  JJ*1.WWW-1 
PP(I1.JJ>~0 
SS  < 1 1 . JJ  >  =0 
1  .15  CONTINUE 

PP ( 1 1 .  WWW )  =  1 
SSI  II, WWW)=0 
DO  136  JJ*2,  WWW 
JUJ*-WWW— J  J+2 

x i <  H4-1.  jjj>~xi<ii+i,  jjj>+pp<ii<  JJJ)«-S8(ZX.  jjj> 

IF<  <1  <  II  +  l,  JJJ>.  LT.  2)G0  TO  136 
XI  <  1 1 4-1.  JJJ)=*X1  (  II  +  l,  JJJ) -2 
SSI  I  I, JJJ--1 )  =  1 
:  ...a  CONTINUE 

*«»4**CND  OF  I  WO'S  COMPLEMENT  X 1  <  1 1+1  >***+  ********* 

DO  13/  JJ=1,WWW 
JJJ--WWW-JJ+1 

XI  <  1 1  4-1,  JJJ+1  )=X1  ( II  +  l.  JJJ) 
t  •,?  CONTINUE 

XI  <  II  +  l.  1  >**0 

,  *  ,<~****TM1S  PART  is  USED  FOR  TWO'S  COMPLEMENT  13  INERT  *********** 

C  ADDITION 

r 

DO  130  JJ=i,WWl 
1  iC  SS<II.JJ>*0 

DO  140  JJ-2> WW1 

JJJ-WW1-JJ+1 

XX (f<,  JJJ>*X1 <  II  +  l.  JJJ)+P<  II,  JJJ-  rBS(  II.  JJJ> 

IF( XX ( R,  JJJ  ) .  LT.  2) GO  TO  140 
XX  <  P, JJJ >  =X X  < R, JJJ)  2 
SSI  U. JJJ-1 )«1 
•JO  CONTINUE 

IF<SS<  1 1.  1 ) .  EG.  1  )G0  TO  949 
IF(SS(  II,  2).  EG.  1JG0  TO  949 
DO  940  JJ»1»WWW 

-  ,.J  XX  <R,  JJ)=XX<R,  JJ+1  ) 

OF  TWO'S  COMPLEMENT  ADDITION*******  »*# 

('...  S.-*»**TME  BEGINING  OF  THE  TWO'S  COMPLEMENT  F,  ********* 

.  SUM 


IF<  XX<R.  1  )  EG  0)00  TO  678 
DO  140  JJ*2, WWW 

IFOfXIR.  vU).  EQ.  0)G0  TO  149 
X  X ( R . JJ)=0 
GO  TO  14R 
XX  <R,  JJ)»1 
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VM.VIV.  A  A  «* 


A.'.,  A.  . 


;-t  CONTINUE 

DO  150  JJ=i,WWW-l 
PP<R,  JJ)=0 
SS(R, JJ)=0 
.r-0  CONTINUE 

PP  <  R,  WUW)=1 
SS(R,WWW>=0 
DO  151  JJ=2,  WWW 
JJJ--WWW-JJ+2 

XX  <R,  JJJ)=»XX<R,  JJJ)+Pi*(R,  J J J >  +S t ■  <’ R ,  JJJ> 
IF<XX<Rj  JJJ).  LT.  2)  GO  TO  151 
XX  <R,  JJJ)*XX<R,  JJJ) -2 
ss(R<  jjj-n-i 
151  CONTINUE 

6  78  DO  743  JJ-l.WWW 

743  XKIIfl,  JJ)-XX(R.  JJ> 

DO  695  JJ-l.WWW 
695  X  X  ( R  > J J ) «0 

C-*>»«»**«rEND  OF  TWO'S  COMPLEMENT  OF  SUM******« ********** 
IF<  II  EG.  <R-1 )  )G0  TO  153 
GO  TO  110 

it/3  DO  610  JJ-l.WWi 

Y (Hi UJ)«0 
SS(R. JJ)=0 
610  CONTINUE 

DO  600  N»2/  CW 
KK-CW— N+2 

IF(H<0. KK)  EG.  1 )Q0  TO  601 
o04  DO  602  K=2.  WWW 

Kl=*WWW-K+2 
YiRj K1+1)»Y<R.K1) 

«o2  CONTINUE 

Y(R» 2)-0 
GO  TO  600 

601  DO  603  JUi»2i  WWW 

UJJ=»WWW~JJ+2 

V <R# JJJ)+SS<Ri  JJJ)+X1 < II  +  l,  JJJ) 
IF(Y<R.  UJJ).  LT.  2)00  TO  603 
V(R#  JJJ)»Y(R» JJJ)— 2 
SS<R, JJJ-1 )»1 
.03  CONTINUE 

IF<SS<R»  1 ).  EG.  0)G0  TO  604 
DO  933  K»2. WWW 
K t *WWW-K*2 
Y(R«  Kl  +  1 )*Y<R»  K1 ) 

-33  CONTINUE 

Y(H, 2)»1 
GO  TO  604 
600  CONTINUE 

DO  690  JU«2,  WWW 

690  Y(R, JJ)»Y(R,  JJ+1)  ‘  “ 

IF (H(0»  1).  EG.  XI <11+1,  1 )  )GQ  TO  620 
Y(R.  1  )»1 
GO  TO  621 
-T.’0  Y(R.  1)«0 

-.21  IF (RF.  NE.  0)G0  TO  526 

IF ( R.  FQ.  0)G0  TO  1  10 
WRITE ( 2» 923 )R«  <Y<R, J J ) <  J J» 1 *  WWW ) 

END  Or  ■  AlCULmT ION  OF  EACH  OUTPUT  .  *H  FIRST 
.•*****•**+*  #e|.-  riMo  ORDER  FILTER*********** 
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DO  ?77  JJ*l,WWW 


,.l  <0+1.  JJ)«X  <11+1,  JJ) 
i‘:  CONTINUE 

If(R.  f.Q  (S--D)GO  TO  76L' 

GO  TO  7M 

-  It,  IF  <R  CQ.  0>00  TO  1 10 

WR I TC <  3> 923)R.  <YIR,  JJ),  JJ»1,  WWW) 

i ' 

END  OF  CALCULATION  OF  EACH  OUTPUT  FOP  UEXT  . 

C **■*+■** »**SECOND  ORDER  FILTER****************^********************* 
DO  458  B=F» (F+2) 

DO  459  JJ=i,WWW 

459  XI (B+l. JJ)*X<B+1,  JJ) 

458  CONTINUE 

IF <R.  NE.  <5-1 ) )G0  TO  761 
CALL  CLOSE (3. IER) 

IF<IER  NE. i)TYPE"CLOSE  FILE  ERROft  . IER 
.'61  CONTINUE 

HO  CONTINUE 

‘4*.****END  OF  CALCULATION  OF  FIRST  SECOND  0  L-ER  FILTER****** 

■Hi  CONTINUE 
J  ’i  Ft  iRNAT  <  1 2X ,  140<I1)> 

.1  rURMAT (  IX,  14.  3X.  140(11)  ) 

7 62  CALL  CLOSE U, IER) 

IF (IER  NE. 1)TYPE  "CLOSE  FILE  ERROR". It « 

CALL  CLOSE  <2. IER) 

I  FIXER.  NE.  1  )TYPE"CLOSE  FILE  ERROR",  II 
486  DO  493  JJM.CW 

H  <  O.  JJ  > -H( RF  +3.  JJ) 

H< 1, JJ)— HIRF+4,  JJ) 

H<2,  JJ)=H<RF+5,  JJ) 

493  CONTINUE 
RF=RF+3 

IF(RF.  EQ.  NC) GO  TO  500 
GO  TO  525 

915  FORMAT (2X,  15) 

916  FORMAT< IX,  15) 

C 

C  END  OF  CALCULATION  OF  THE  CASCADE-NESTED  STRUCTURE 

OUTPUT 

C  * --**##■**♦  ***********************************  a-#**#**#*#***** ******* 

500  CALL  EXIT 
END 
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USER'S  MANUAL  PROGRAM  PNES 


FILE: 

DIRECTORY: 
LANGUAGE : 


PNES 

DP4 :OWEN 
FORTRAN  5 


DATE: 


September  1983 


AUTHOR : 


Harun  In&nli 


SUBJECT : 

FUNCTION: 


PROGRAM  USE: 


Calculating  the  Parallel-Nested  Filter 
Output  Response. 

This  program  is  used  to  calculate  the 
parallel-nested  filter  output  response. 
Each  second-order  section  is  acting  as 
an  individual  nested  filter.  The  out¬ 
puts  of  each  second-order  section  is 
stored  in  different  files.  Then,  they 
are  added  together  in  two’s  complement. 
The  result  will  be  the  output  response 
of  the  parallel-nested  filter  structure. 

The  program  is  loaded  by  the  following 
command : 

RLDR  PNES  6FLIB6 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type  Figure 


1.  Two's  Complement  of  Binary  Numbers  26 

2.  Two's  Complement  Addition  28 

3.  Binary  Multiplication  29 

4.  Shift-left  and  Shift-right  30 

5.  FIR  Parallel-Nested  Form  Structure  36 


EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 


PNES 

NESTED  STRUCTURE  BINARY  COEFFICIENT  FILE  NAME:  NC 
BINARY  INPUT  FILE  NAME:  TI 
UNQUANTIZED  BINARY  OUTPUT  NAME  FOR  NS:  NO 
NEXT  SECOND  ORDER  OUTPUT  FILE:  NOl 


FIRST  SECOND  ORDER  FILTER  OUTPUT:  NO 

ENTER  THE  FILE  NAME  FOR  FIRST  SECOND  ORDER:  N02 

NEXT  SECOND  ORDER  OUTPUT  FILE:  NOl 

FIRST  SECOND  ORDER  OUTPUT  FILE:  N02 

ENTER  PARALLEL  OUTPUT  FILE  STRUCTURE:  PPO 


The  content  of  the  file  NC  is  the  same  as  the  file 
NC  explained  in  Program  CNES.  The  file  TI  is  explained  in 
Appendix  B.  The  file  NO,  NOl,  N02  has  the  similar  data  to 
the  file  NO  explained  in  Program  CNES.  The  file  PPO, 
representing  the  parallel-nested  filter  output  response,  is 
also  similar  to  the  file  CPO  explained  in  Program  CNES. 


p-  w  *■ 


c  .>  4-  •> 


i  »-  -• 


.-i <•*##**#«#*  »*#*«  **# 


! 


| 

■ 

t 

! 

i 


,N>. 


)  I;!  .  f>.\:-' 
.•1*  >  i  » tLlR 
D.»  ?K 

LANGUAGl. 


PN»  ^ 

:  IAKUN  I  NANI  J 

sep  rt-MBER  a:i 

FORTRAN  *3 


function.  rms  program  /s  used  to  calculate  the  filter 

output  based  on  paralle  nested  structure 

THAT  IS.  EACH  SECOND  OR:  cH  COHPANENT  OF  THE 
PARALLEL  FILTER  ARE  IN  i  FSTED  FORM  THE  NEGATIVE 
NUMBER  IS  REPRESENTED  If.  TWO'S  COMPLEMENT. 

THEN  SUMMATION  IS  CARR I I  D  OUT  IN  THIS  NUMBER 

SYSTEM.  TOLL 

.■  *.■*«  »»*tf»t***t*»t«»««**«t*#mt****««*»««««**<  *#####*#*#*#**##*#####* 

INTEGER  OUT!7  f  LE  <7) .  OUTF<7),  XX'  <  20,  140).  Y'  20.  140).  Xl<20.  140) 

IN ‘T:GER  140, .  H(20,  140),  P  <  20,  140).  f  (20.  140).  PP(20.  140) 

INTEGER  IW,  NT.  CW,  S,  »i.  1.  Jl.  R,  K,  II.  JA.  F.  F .  Q.  QO.  0UTD<7),  CWW 
INTEGER  JB,  JL,  RR .  OU TA< 7 ) , OU TFM < 7 > 

AC  T.I'r-NESn  l>  SO' VC  I  ORE  LMNfRY  COEFFICi  N  FILE  NAME  :  " 

REhI.) <11.  00 > OUT F 1  LE O) 

:*•;  FORMAT  <SJ  5»> 

CALL  OPEN!  1  ,  OUTFILF.  1,  IER) 

REA:.--.  1,  /•<> ) ii< 

REACH  1. 60)<w 
Ci0  FORMAT  OX.  14) 

DO  200  I J-O.  <  NC-1 ) 
r  DO  201  J,i-  1,  <2»CWH  ) 

•01  H  <  I  -J.  J  J  >  -O 

200  CONTINUE 

<  « INER Y  NESTED  FILTER  COEFFICIENTS  A:,£  READ  BY******** 

MEANS  OF  CHANNEL (1) 


C 

c 

c 

c 

c 

c 


DO  70  I«C. (NC-1 ) 

70  READ<  1. 80)  <Q.  <H<  I,  K>.  K*i.  CW)  > 

80  FORMAT (IX.  14.  10X,  1 40(  1 1  )  > 

CALL  CLOSE  < 1 .  IER  > 

IF < IER.  NE  1 ) TYPE "CLOSE  FILE  ERROR". IER 

*******#*##NES7ED  FILTER  COEFFICIENT#***#*##*’- 

•#**#*#**TH£  INPUT  TO  THE  FILTER  IS  READ  FROM*  •> 
THE  FILE  BY  MEANS  OF  CHANNEL! 1 ) 

AC C  EP  T " B I NER Y  INPUT  FILE  NAME  :  " 

R£AD< 1 1 .  1 0  » OUTF I LE  < 1 ) 

10  FORMAT (0)5) 

CALL  OPEN) 1. OUTFILE.  1.  IER) 

IF ( IER.  NE  1 ) TYPE"OPEN  INPUT  FILE  ERROR 
REAPU.30)  0 
30  FORMAT (20X,  15) 

RFAH< 1 , 30) J W 


**■ 


".  IER 


199 


>V>vw 


;  *  *  »•  *  •  I RST 


SECOND  ORDER  FILTER  OUTPUT  IS 
IN  (HE  FIL^E  BY  MEANS  OF  CHANNEI 


>  ORED************* 

>2) 


ACCEPT “UNGUANT I  ZED  BINERY  OUTPUT  NAME  F  ")R  NS 
READ( 11.  1 OO ) OUT F  < 1 ) 
lOO  FORMAT  (S)  5) 

CALL  DFILWUJUTF,  IER) 

IF (  IER.  EQ.  10) GO  TO  101 

IF  <  IER.  NE.  1  )  TYPE'*  DELETE  FILE  ERROR  ”,  IE! 
ini  CAI.L  CFII.WIDUTF,  2.  ICR) 

IF <  IER.  NE.  1  >TYPE"CREATE  FILE  ERROR",  IE. 

CALL  OPEN (2,  OUTF.  3,  IER) 

IF(IER  NE. 1 ) TYPE"OPEN  FILE  ERROR". IER 

WW-2*IW 

WWW=2*IW+-1 

1WW  -UJ*  i 

WW1»2*1W*2 

CWR-CW+i 

*6  *«■■*#•***•#*•«■****<:-#**•******#*■«•*##•«■•«■#**##**#* 


***#■**##*****■*# 


THE  BEG IN INC  OF  THE  CALCULATION  OF  THE  -UTPUT  FOR 
0  EACH  SECOND  ORDER  NESTED  STRUC i  .RE 

RF"0 
QQ-0 
">25  IQ-  0 

I A -0 

IC=0 

«*() 

IF<RF  EG  0)00  TO  313 
IFtHF.  ©T.  (MC-1))S0  TO  500 

**~***NEXT  SECOND  ORDER  OUTPUT  IS  WRITTEN  TO  HE  FILE** 
BY  MEANS  OF  CHANNEL (3) 

ACCEPT1 NEXT  SECOND  ORDER  OUTPUT  FILE  : 

READ! 11,  1 OO ) OUT  D  < 1 ) 

CALL  DFILW10UTD,  IEiH 
IF < IER.  EQ  13)00  TO  504 

IF  i  IER.  NE  1 > TYPE  "DELETE  FILE  ERROR".  IE 
CALL  CF ILWIOUTD, 2, IER) 

IF ( IER.  NE.  1 ) TYPE "CREATE  FILE  ERROR", IER 
CALL  OPEN! 3,  OUTD,  3.  IER> 

IF <  IER.  NE.  1  ) TYPE 11  OPEN  FILE  ERROR",  IER 
REWIND  1 
REAO< 1,  30)5 
READU.  30)  HJ 
51 3  CONTINUE 
4-V  i  I»R 

IF  (  I .  EQ.  360)  CO  TO  434 

IF  <  I  EQ.  300  > GO  TO  434  ^aLL6W  lN£» 

IF! I  EQ.  240)00  TO  434 
I F <  I  EQ.  180)00  TO  434 
IF < I  EQ.  120)00  TO  434 
IF ( 1 .  60  60)00  TO  434 
IF< I A  EQ  360)00  TO  433 
IF  (  I  A.  EQ.  300)00  TO  433 
IF<  I  A.  EQ.  240)00  TO  433 
IF  *  I A  6Q  180  )G0  TO  »  3 
IK  l A.  60.  120)00  TO  433 
IF  M A  EQ.  60)00  TO  /  33 


'((•produced  from 
b«il  »v*l«ble  copy. 

Pft  GrES 


200 


***♦7 HE  LOOP 


IS  UPFD  TO  READ  THE  INPUT  i  I  HE  FILTER******** 


LH.'  '  .j  ■  I  Ml  1  ifii  '■)  i 

n  2 : i  j j  -  ! .  (w 
■;  j.  .<  =<.• 

Rfl l  .  ;  ND--1  i  )  (  X  <  J,  KA  )  .  H K=  1  >  IW> 

LON  i  X  NLL' 

****Ei'l>  OF  I.  Ai* I  20-» ** -s- *  *•* *  ****  ***********f  ********* 
IF<ia  EG.  li.O  TO  4  1? 

►  **#THI5  PALI  UiE  I-RULRrtM  IS  USED  TO**  ..******# 

FIND  THE  Y<0) 


ID=l 

DO  I’ 'ics  JJ  •  l  <ilri  •  WWW 

y  • jj) --  u 

DO  **  I  0  .  i.  I  t:  |  .  ixJi*4W 
V  \  J ) 

Eli'  v  Ox  JJ)  -J 

CONTINUE 
DO  414  N-  ;?,<  »,} 

KK-CW  N+i' 

IF  <  H ( O.  KK  l  EG.  1  )  00  TO  4 1 0 
DO  41*  K  *;.'.  WWW 
K 1  “WWW  IW 
Y<0.  Kl<<  ) *  Y  < < » • K i  ) 

CONTINUE 
Y(0,  2)  -0 
GO  TO  414 
DO  417  J.J-;  .WWW 
J JJ*WWW  •  >  .**2 

Y  <  0.  oJJ )  -  /  <  Ox  UJ  J )  +SS  <  0,  JvM  M-X  <  O.  JJJ 
IF(Y<().  JJJ).  LI.  2)C0  TO  417 
Y(0,  JJJ)  -Y<Ox  JJJ) -2 
SS<0,  JJJ  l  >«1 
CONTINUE 

IFCSStO, 1) .EG. 0)00  TO  410 
DO  417  K  -2  WWW 
h  1  -WWW-  K  *-2 

•.'(().  K  1  *  1  >  "Y < 0.  Kl  ) 

con  r  inuc: 

YUi,  2)  -1 
uO  fO  4  l‘.i 
CQNT i NUE 
DO  Ziit  'J  JJ- 1 »  WWW 

V(0,  J  J  )  :-Y  <  v>  JJ<1  ) 

IF ( FF  ne.  0)(;0  TO  4 s:; 

W»  1 TE  (  2.  920  >  GG.  ( Y  '  0.  JJ ) ,  JJ- 1 .  WWW ) 

>;u  ft;  412 

URi  f  E  <  3x  923  i  G1.*.  i  Y‘0.  .»J/,  Jv»  -1 .  WWW) 

•***7HE  COMPl  1  •  i iN  ij)  V  <  O  >  ***************  ******** 


(A-  J 

1 1  <  f*f  F.(i  •  f  tJ  :V'.) 

DU  i  hi/  >  V  1 

I f  r  L  Q  •  s  i  U  1  « 

;.ij  :>oi  L-  - 1  •  ww  i 
'  X  (  R .  I  ;  < 

;  r  g  i  r-  tq  :mi 

F  -U 

GO  TO  :3i;* 

KFK-2 

F-R-2 

DU  33D  Jv»~lWU.  WWW 

X  (fi,  JJ)  - O 

DU  770  JJ--  .1  •  WWW 

XI  <R.  JJ)  -X  (R,  JJ) 

I F  (  R  OF  (!  <■'?))  00  TO  400 
.  ***)HE  LOUP  110  IS  OSLO  TO  CALCULATE  7Hl 
Ui  LACH  SECOND  ORDER  FILTER  ONE 


■|<  n  put**^*  ********* 

ONE 


DC  110  f  I  T-.  (FTP) 

lr*HI\lv  C{-‘  2)00  TO  44  4 
Ut-KKK  )  l 
<\Q  TO  S'l.' 

.-•i  ,‘i  R  1J 

,  .  •  IF ( JI .  U  O i GO  TO  40) 

DO  ‘56C  JJdWU.  WWW 
H<  Jl  .  J.)  <  ~~0 
UU  l  l  i  J  )  ~ 1 .  WWW 
SU<  l  i,  JJ)  -O 
Pill,  j  J  >  --0 
; (  CONTINUE 

C * *****THE  LOOP  112  IS  USED  FOR  BINARY  MULT  PLICATION************ 
DO  112  N  2, WWW 
KK-WWW-N+2 

IFfHCJI  .  KK).  EQ.  i  >00  TO  113 
li-  DO  114  K-2.  WWW 

HI  WWW-K+2 
Pdf,  K1  H  >-P<  II.  Kl) 
l  .  ;  CONTINUE 

p  <  1 1,  >  0 

GO  (it  !  1 2 

l  ,  „  DU  U  )  j~2.  wwv) 

JJ.i  nWW--JJ+2 

Pill,  JJJ  JJJ )  +  X  l  ( 1 1 ,  JJJ )  -t-E;  .II.  JJJ ) 

I!  (Pi  I  i,  JJJ)  LT .2)00  TO  115 
(Mil,  JJJ  >  -P  i  1 1 .  JJJ )  -2 
00  0.1  JJJ- 1 i- 1 
.  CONTINUE 

I F ( SS (11. 1 >  EG  0)00  10  l IN 
DO  K»2.  WWW 

A  t  -www-K+y 
Pd  l.  K1  ♦!>*»»(  1I.K1  > 

CONTINUE 
P  ( 1 1 . 2 ;  1 
(iO  10  1  16 
,  CONTINUE 


***FNO  OF  LOUP  l  12*« *****.****♦**********  - 
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I 


i 

K 


P  * *  ****** 


i  ,  JJJ  ) 


■  I  ’  UV  ‘  ..'J  W*/iti 

H  (  I  ( ,  >  -PC  i  I  ■  JJ<  i  < 

w  <h< ji  .  i  •  :lq.  x  i  <  j  i.  i  )  >co  i  a  l  ui 

■  1 1.  x )  -i 
■  :  fU  I  ■  • 

f  ■  1  1 .  1  i  '  i 

***--.>lE  BF-KNiNO  OF  THE-:  TW;'b  CCiilPLEMEN : 

.  r  ( P  «  X  I ,  i  »  LG  u  i CO  TO  i 00 
i'll  12  J  ■J-2.WWW 

1  :•••  ( P  (  J  I  .  JJ )  EG  o  >  00  TO  1 2.? 

<  1  l  ■  J  J )  — O 
co  -fo  ir.M 
HU  I,  JJ>-  t 

•  i)N  i  in-ij. 

WU  130  JJ -- 1,  WWW  1 
HP  (  /  I  .  J.I)-0 
-JOi  II.  JJ)-0 

•  ONI  TNUt 

» *  i  -  ■.  I  i  ,  WWW .  —  t 
-It.  WWW  )  =0 
00  131  JvW2.WWU 
>J  J  »WWW-JJ»2 

ill.  J  J  J )  «P  ill.  JJ  J  )  i  PP  (IX  J.JJ  )  +SS 

i  i '  <  p  ( 1 1 .  j  j  j  •  ..  r  .2 )  Co  r  o  x  a  i 

Hilt.  JJ  J  >  -P  (  t  i  .  Jjsj  )  • 

S3«  l  1  .  JJJ-  t  >-■■■  \ 

CONI TNUL 


••  •»***.-  «1TN0  OF  TWO'S  COMPLEMENT  OF  P  *•*****•>  >** 

iliE  DEFINING  OF  TWO'S  COMPLEMENT  Oi  <1  ( 1 1  +  1 )  ******** 


IFC  XI  <11  +  1,  1).  EG.  0)GO  TO  123 
DO  124  JJ-2. WWW 

IF<  X  I  (  11*1.  JJ).  EQ.  0)00  TO  126 

X  l  i  l  T  H  ,  JJ>»() 

Gij  10  124 

V  I  (  l  1  +  1  .  JJ?  -1 
•r,  ON  f  T  NUF 

uu  (3:>  jj~-i,  www-1 

HI'  ill.  JJ)»0 
S!>i  (  t  J  J )  ~0 
cONriwui: 

PH  i  If.  WWW  )»1 
.“•ft  Cl/,  WWW  )  =0 
DO  12/,  JJ-2, WWW 
JJJ  WWW-JJ+2 

cm  i  +1,  jjj)«xi ( li+i,  jjjmppc  ii,  j 

IF' XI <11+1.  JJJ).  LT.  2)G0  TO  136 

XI  '  1 1*1.  JJJ)=-X1<  II +•!,  JJJ) -2 
SS(  1 1,  JJJ-D-1 

CONI INUE 


>  i-OSdl,  JJJ) 


«w»+*THF-  COMPLETION  OF  TWO'S  COMPLEMENT  0  KU¬ 
DO  137  JJ=1,WWU 
JJ  J--WJW-JJ+  l 

X  l  i  .1  i  i  !  .  JJ  J+  ii-Xi'im,  JJJ ) 

''Of-'f  * ,  • 

A  1  i  K  -  i .  i  >  -0 

«*+  W/C!  'S  Cni'if'LLMENT  blNERY  ADDITION******  ***** 
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1 < II+l ) ******* 


w*.  ••  .1  .■  .•  V  .•  ■  *  •  ■  . 


-><11,  JJJ ) 


V  •»  f-  i 


i  >1  j  1  >{ ;  J  -  1  i  W'/,  l 

'  i  >  :  .  i 

ut.;  i  *•  •  jj=2.  wwi 

J  .I.I  t  -J.IV  l 

f  ■  :•< .  ;..'J  i  -XI  (  11-vl.  JJJ  I  +-H  (II,  JJJ  / 

ij  f:  ■■!:,  jjj»  lt.  :  h;u  to  140 

A  I  •  .  J  J  I  -  A  (  l(  •  J  J  J  )  ‘i.1 
■'  ;  ;  JJJ-  1)1 

con r  iii'ji  ■ 

if-  :  i.  l )  eg  l  )CO  ro  V4*-? 

.  f-  i  1  1, 2).  EG.  1  >GO  ro  ‘74V 

i'll  v-i: :  JJ-l.WWW 

X  >:  -  V. .  JJ)— XX  <R»  JJM  ) 

[  v  .  X  x  •:  W .  t  )  EG.  O )  GO  ro  *73 
JO  1  11*  JJ~2.  WWW 

!  •  :  ■  X  '  t> ,  J  J  )  EGO)  GO  TO  1 49 

v  X  .  u ,  j.ij  --o 

ni  140 

. 1  ■  •*  >  -i 

■  1  j,:4  f  ;  f  J  : 

:.J  .1  wwi:  1 

•  . .  -o 

'  <  i  .  o 

Mr  *.  U.  vlv!.!  .  -  i 
*  b  •■)•<.  .. .  •  .  > 

i  .  i  i  j  i  <«>4W 

—.1.1 

>  X  <  D  .  ‘J  J  >  -X  X  i  W ,  JJJ  >  t  MM  t  rt »  -JJJ )  +SB  •  /  J  J ) 

()•  \  x  X  =  U  J,» J )  LT.  2  >  GO  TO  l  *j< 

XX  (it..  ijJI-XX  <R>  JJJ)  -  2 
JJ  J-I)-  1 

•:  on  :  [!■<»  •: 

)i-.Ji  lYfuN  OF  ADIT  TON****  *»**•«  **►***♦«  ft* 
<:<J  74.1  JJ-l.WWW 

XKliM.  JJ)--XX<R,  JJ) 

■ju  6V,  U-l.WWW 

x>:  ( ro  .U  /  --Q 

Ip:  1  )  tea  10  1  02 

•.-Jill  I  O  )  ■  » > 

oo  <,r>  ...  i-*i,  wwi 

I  \  »  W  /  *  *0 

sa<«.  jj)*o 

CONTI HOT 
DO  .GOO  N-  2.  CW 

KK-CW- Nv2 

I  M  lllJi.  UK).  EG  1  )  GO  TO  00 1 

do  iv=2.  www 

I  i  i.  lU'.  i-K-i  2. 

v .  (< ,  ix :  + 1 )  -  v  :io  kj  ) 


1-  0  ■  ,  J-  2.  1 

I  ■  -  I  :  .  ,W  -  ,.k  I  • ;  ■ 

•  *  I’  •  J  i  -  .  H  ,  JJ  J  •  JjJ)  *•  a  1  (  i 

•'  •:  ■  •  jjj  •  i_r  iu  .«,o:« 

'■  ■.  i  .  jj  >-  v  O:.  j-jj, 

‘  •  >j-J  .1  )■  t 


L . Jx)J ) 


li- DIG  0)00  TO  604 
!»(.)  '/\i\  v  -2.  WWW 
)<  !  ■-vii:>-i--K+L* 

Y  ■:  ii.  f.  ;  H)-Yi  K»  H  .1  i 
U.IHT  1  H-  <L 
v  *.  i< .  ;  )  i 

oc.i  hi  4 
•„ ,  h  i  r  (hu: 

L/l)  /,'>()  .<  •  >.  www 
V  ' );  J.  - ;  i  (R,  Jv.  i  1  } 
i !  '!)(■:,  I  GO  XI*.  1  I  +  1 ,  )  )  >  Ofj  m  600 
.  '< .  I  i 

:,"i  r  (j 

:•  ,  .i  .» 

O'-  ■  f-;F  ill  •  1 00  ro  D26 

I  :•  1.0  f.j  l  10 

WRITER.  -  UR.  Cv <R,  JO),  JJ-l,  WWW) 

-  i  AST  ££-;■.:)  ORDER  SECTION  OUTPUT  IS  u  i  1  FEN  TO  THE  FILE***** 

iv  j  OOLt  i>  V  .  ) 

L/Ll  /  /  /  ...  J»  l  ,  WWW 

X  i  <  l'<  M  »  JJ )  -X  (  U  *•! »  J,l) 

CONTINUE 

l i-  <  R .  EG  ,j;-l))CO  TO  76;* 

•.  ,M  io  ;m 

il-iR.LG  <  '  GO  TO  110 

wr  i  re<o.  *;•.  j >R.  ( v  («,  jj) ,  jj~i,  www) 


:  +*•««••)•  6. T  secoo!:  ORDER  SECTION  IS  WRITTEN 
U-.j  4  DU  li  -i-.  (F  +2) 

Llj  4‘J''  UJal.WWW 

>  1  Oil  » ,  JJ)-X(0+1.  JJ) 

;  i  u  r  mu;-. 

O'  I  H  ilfc  -,  6-1  )  >(;Ci  TO  76 J 
<  Ai.L  i’ll 'Or!  '3.  IflO 

U  (IC-.W  ML  1  )  TYPE  "CLOSE  FILE  ERROR",  U 
>:  Ai.  L  CLOSE  (  1.  IF R  ) 

if'UEH  ME  l  )TYPE"CLOSE  FILE  ERROR",  II 

COMT  I HUL" 

C  ON  f  Ir-IUL 
•ONTlNUE 

i  OR  MAT  (  I2>:,  l-i O'  1 1  )  / 

;  ORrlA  Y  '  1  .  I  <1 .  .  -  140(11)) 

CALL  C.L.i.r'i '  ILK) 

•F-  >f>-  lit--  F"'*Cl  flGl"  f  ILF.  ERROR",  IER 


THE  FILE iMY+Hf •#■!»# 


4 


.  .  '  »N  I  <  .  •  *-  J.  •  I  ) 

rr  •  i  I  1  ■  .  •  »  •  -i~U  i.  *  '* 

1  ;  •  ;  .»*♦.’  ,/ 

.‘Uf4  *  . 

;<i-  -  ji-  l  i 

(F<i  Y  F..Q  NChO  TO  196 
CO  TO  32L 

f RST  SECOND  ORDER  OUTPUT  IS  READ  BVv  ****** 

MEANS  OF  CHANNEL  (2) 

ACCn-fFlHSr  SECOND  ORDER  FILTER  OUTPUT 
REAL <11.  10O  > OUTF  < 1 ) 

(.ALL  OPEN <2.  OUTF.  1.  IER) 

IF  <  ii-lk.  NE.  i  ) TYPE  "OPEN  FILE  ERROR"#  IER 

WEw  f  P 

*  :<  *  ♦FAKALEL-NFSTRED  FILTER  OUTPUT  IS  WR  IT  .  <-.N * ******** 

TO  IMF  FILE  AFTER  ADDITION  OF  01 

OU  i  LOT  ANT)  FIRST  SECOND  ORDER  31  .  TON 

out:  ur 

ACCKP  I  "ENTCP  •  HE  FILE  NAME  FOR  FIRST  SST(  .1)  ORDER  :  " 

RKAIO  !  I.  fry-..  ••  jrFNf  l  ) 

(All  pr- n.li- !;•  i  FFM.  IER) 

IF  O  R  EQ.  I  -  00  TO  306 

IF  ;  L-  P  ME.  I  '  TV PE "DELETE  FILE  ERROR  ",  IEF 
CALL  T'FILWtOUTFM#  C»  (ER) 

I F  '  L  !•>'  NF.  t  )  T  YPE  "CREATE  FILE  ERROR  ".It 
CALL.  CIPLN*  6.  OUTFM.  3.  TER) 

IF  UCR  ME  i  ;•  i O-PE  "OPEN  FILE  ERROR",  IER 
>. » Cl  ■ ' 

J-0 

JA-H- 

RR-1"- 

0U~«. 

IF <  OH  E(i.  OXvO  TO  354 

08  0+  i 

:.;R 

Cr(Lv.  OF.  O)(;0  TO  316 

(,;■(<  192  TO  USED  TO  READ  THE  FIRST  SEC  .0  ORDER********* 
SEC i i ON  OUTPUT 

DO  N'2  JA--RR.  (RR+9) 

Ft  ,'V.S  00  -  l .  WWW 
X  \  0 A »  00  l  v; 

Kt.  AD<2,  923  END*  1 93.  ERR=DOO  )  J.  <X(0A.K5i  0-1 »  WWW) 

CONTINUE 
t.ONT  INUE 

r-wfrr.MD  OF  I  (92***********************  *»:■** 


•..vvbsJcv1V’>..v/ 


-  .  V  -  A  ■ .  ■  >  VVv  >  v 

•  "  2c  va  *-  --  _■ 


’•  AW..}/ 

«  *  a  V*  M 


s', 


i  ■  c  j  '  - 1  •  i  '  .*■  L.  *  *.  i  jLi  ^  9  i 
•  '*  •  .":!!•  j  WWW 
.  •  ,.<l.  .  J.)  0 

>S J  *  '.*!.. ,  -  i  ‘  ;  -0 
cp  i  i  i  1'iur. 

f'ljM  J!-!'.  :r 

oo  i  :i  ;.j  i  ;j 

IF  <  G|-  .  *>  :  l  I  I  fQ  jU'j'I 

. **N£X  r  5E0UM'-  ORDER  OUTPUT  IS  READ  BY  ME. .  -H  OF***-** 

<  HA.  i.  <CL  v  3  > 

ACCEPT  "iMI>:  i  SECOND  ORDER  OUTPUT  FILE 
READ (11. 1 OO ) OUTD ( 1 ) 

C  A- .  L  OP EN<  3,  OUTD.  I .  I  UR ) 

IFOiTP  MK  1  »  I  YPE  “OPEN  FILE  ERROR",  IER 
i(tw ;  'no  3 

*•  **»F IhST  SKCi'iNO  ORDER  OUTPUT  IS  READ  BY  I  -.;MS  OF******** 

< '  I  IAiV.mEL  (  h  ) 

aCOCHT  "FIRST  SECOND  ORDER  OUTPUT  FILE 
K  EAL*  ill,  1 00  >  OUTFM  <  1  ) 

CALL  0PLN<6, OUTFM,  1.  1ER) 

IF <  Fl:P  ME  l)  TYPE  "OPFN  FILE  ERROR",  IER 

in. WIND  A 

»  -•  >; »  -  •  •' *PAH AUFL-WEfa  I  t.D  FILTER  STRUCTURE  OUTPUT  j  ************* 

WHIT TEN  BY  MEANS  OF  CHANNEL (5) 

AC'.I  r  r  "tiwiRR  PARALEL  OUTPUT  FILE  STHUCTC  ,  :  " 

READ  (  1  1 ,  lOO)(iUTA(  1  ) 

CALI.  OF  II  Minor  A,  IER) 
ir<  IER  EG  J  :  ,  ,;0  TO  3 AS 

[ F  (  1 1  R  Nf:  i  '  i  /HE  "DELETE  FILE  ERROR",  IE; 

CALI  CF  L  ‘ '  !'A.  3,  1S1R  > 

IRC  IER  ME.  .1  )  I  VPE"(  RFATE  FILE-  ERROR",  IER 
CALL  OPEN  (  .  •  UTA,  3,  IER  ) 

I F  <  I  OP:  ME  J  )  l  /PE "OPEN  FILE  ERROR",  IER 
*****  .OOP  333  IS  USED  TO  READ  THE  OUTPUT  L.  THE  FIRST******* 
/.r-iD  llCOND  ORDER  SECTION 

Du  3  JA  IN  •  F  R  i  V) 

0> ,  3 iu/j  Jj-  t  •  WWW 

<  ia.  jj  >  > 

li  •  .jA.  Of  1  ,  ) GO  TO  500 

READ <  3.  923 ■  END-324,  ERR-500M,  <X<UA,  K9  <  MUM) 

RE/'D  <  6,  923.  END<=324,  ERR=500>U.  <Y<  JA,  KKI  KKS»1*  WWW) 

CONI 1NUC 
CONY  [ mui; 

»*ENR  UF  LOOP  523*********************** 

DU  J-  Jli.  •  m*9) 

O'-  till  Jo-  I  WWW 
•  .  J ,  J  J  ,  •') 

f  I.;N  ’  '  M'.  'f  . 
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•  V 


i 


;  WO  '  -V  *  u;1PLL  Mr  ADD  IT  ION  OF  FIRST  AND  ft  !  SECOND* ******** 
URL...  SEC  l  ION  OUTMUI 

Du  l‘>4  J-J».  (JB-t-9) 

DU  Jw*.  ID-;.1.  wWW 
JJ-WWWK  <1 

v  \j.  jj>=-y<  j.  jj)  +-x<  j.  jj)  «-55<  J.  jj) 

IP  <  Y(  J.  JJ>  .  L  f  2>C0  TO  195 
V uJ >  --Y <  J.  JJ>  2 
SS  J.  JJ-l  )“-l 
CONT l  HUE 

I F  <  SS  <  J.  1  ) .  EQ.  1  )  GO  TO  216 
IF  <  SS <  J.  2).  EQ.  1  )GO  TO  216 
<;«:»  m  ;n  / 

i.^F.rtl1  OF  ,-,S.*DI  i  ION*:  *****  ****************** 
i  ll  210  J.)  -i,  WWW 
t  l  -W1  iW  *+  l 
y  •'  j.  it-.;  ••  •-■V  ■■  ■  * ■  it) 

CONI  iNUI 

i !••  t QG  mg  <. .go  ro  :k>9 

Wfint(  5,  V;  . ! )  J,  (  Y  <  J.  JJ  > .  JJ.-  1 .  WWW) 

***P  AH  ALL.EL-- NESTED  FILTER  OUTPUT  IS  WRIT'i.  J  TO  THE  FILE******** 

r.n  TO  nr.;!- 

WRITE  <6.  Vi;  j )  J.  <  Yv  J.  J  J ) »  J  J;s  1  *  WWW ) 

***FIHST  SECOND  ORDER  SECTION  IS  WRITTEN  0  THE  FILE****** 

IF  (  J  GE.  (5-1  )  )  GO  TO  311 
iF(J.  GE.  <JD*9)>GQ  TO  221 
CONTINUE 
QO  -00  f 1 
J--  L 
JD«> 

JA~0 

CALL  CLOOL.  (6.  IER  ) 

1K1IER.NE.  1  )  TYPE  "CLOSE  FILE  ERROR",  I  ft- 
IF  (QQ.  GE.  2)00  TO  373 

co  ro  a::-;.1 

CALL  CLOSE  (5.  IER) 

IF ( IER. ME  1 > TYPE-CLOSE  FILE  ERROR". I EH 
CALL  EXIT 


Appendix  D 


Digital  Filter  Outputs  and  Plots 

Appendix  D  contains  the  program  and  user's  manual 
for  digital  filter  outputs  and  plots.  Each  program  user's 
manual  explains  what  the  program  does.  These  are  called 
as  follows: 

1.  0UT1 

2 .  PLOT 


3.  PL0T1 


USER'S  MANUAL  PROGRAM  OUT1 


FILE: 

DIRECTORY: 
LANGUAGE : 
DATE: 
AUTHOR: 
SUBJECT : 
FUNCTION: 


PROGRAM  USE: 


OUT1 

DP4 : OVEN 
FORTRAN  5 
September  1983 
Harun  In&nli 

Quantizing  the  Unquantized  Output. 

This  program  quantizes  the  output 
filter  response  according  to  user 
requirements  of  either  the  truncating 
or  the  rounding  technique. 

The  program  is  loaded  by  the  following 
command : 

RLDR  OUT1  ®FLIB® 


SUBROUTINE  REQUIRED:  None 
FLOWGRAPH : 


Type  -  Figure 

1.  Two's  Complement  of  Binary  Numbers  26 

2.  Binary  to  Decimal  Converter  27 

EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 

OUT1 

ENTER  UNQUANTIZE  OUTPUT  FILE  NAME:  NO 
ENTER  OUTPUT  FILE  NAME  FOR  PLOT:  PO 
QUANTIZATION  TYPE  (1-TRUNCATION,  O-ROUNDING)  1 


The  file  NO,  representing  the  digital  filter  output 
in  binary,  is  explained  in  Appendix  C.  The  file  PO  shown 
below  is  representing  the  number  of  coefficient  with  100  at 
the  top,  the  coefficient  numbers  at  the  first  column,  the 


truncated  coefficients  based  on  20  bits  output  register  at 
the  second  column,  the  truncated  coefficients  based  on  10 


bits  output  register  at  the  third  column  and 

between  these  two  truncated  coefficients. 

PO 

100 

the  difference 

0 

. 9727478E-03 

.OOOOOOOE  00 

. 9727478E-03 

1 

. 3112793E-02 

. 1953125E-02 

.  1159668E-02 

2 

. 6874084E-02 

. 5859375E-02 

. 1014709E-02 

3 

. 9014130E-02 

. 7812500E-02 

. 1201630E-02 

4 

. 9986877E-02 

. 9765625E-02 

. 2212524E-03 

5 

•9986877E-02 

. 9765625E-02 

. 2212524E-03 

6 

. 9986877E-02 

. 9765625E-02 

. 2212524E-03 

7 

. 9986877E-02 

. 9765625E-02 

. 2212524E-03 

8 

. 9986877E-02 

. 9765625E-02 

. 2212524E-03 

9 

. 9986877E-02 

. 9765625E-02 

. 2212524E-03 

10 

. 9014130E-02 

. 7812500E-02 

. 1201630E-02 

11 

. 6874084E-02 

. 5859375E-02 

. 1014709E-02 

12 

. 31 12793E-02 

. 1953125E-02 

. 1 159668E-02 

13 

. 9727478E-03 

.OOOOOOOE  00 

. 9727478E-03 

14 

. 0000000E  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

15 

. 0000000E  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

16 

. OOOOOOOE  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

17 

. 0000000E  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

18 

.OOOOOOOE  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

19 

.OOOOOOOE  00 

.OOOOOOOE  00 

.OOOOOOOE  00 

20 

.OOOOOOOE  00 

.OOOOOOOE  00 

.OOOOOOOE  00 
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USER'S  MANUAL  PROGRAM  PLOT 


PILE:  PLOT 

DIRECTORY:  DP4:OWEN 


LANGUAGE :  FORTRAN  5 


DATE: 


September  1983 


AUTHOR : 
SUBJECT : 
FUNCTION: 


PROGRAM  USE: 


Harun  Inanli 

Producing  the  Input  Signal  Plot. 

This  program  plots  both  the  input 
and  the  scaled,  as  well  as  the  quan 
tized,  input  signals.  These  data 
come  from  the  file  Til. 

The  program  is  loaded  by  the  follow 
ing  command: 

RLDR  PLOT  GRPH.LB  @FLIB@ 


SUBROUTINE  REQUIRED: 

Name  Location  Purpose 

GRPH.LB  DP4F  General  graph  plot 

EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 

PLOT 

INPUT  FILE  ANME  FOR  PLOT:  Til 


The  content  of  the  file  Til  is  explained  in 
Appendix  B. 
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USER'S  MANUAL  PROGRAM  PLOT1 


FILE: 

PLOT1 

DIRECTORY: 

DP4 :OWEN 

LANGUAGE: 

FORTRAN  5 

DATE  : 

September  1983 

AUTHOR : 

Harun  Inanli 

SUBJECT : 

Producing  the  Output  Response  Plot. 

FUNCTION: 

This  program  plots  the  output  response 
of  the  digital  filter  according  to  data 
given  by  the  file  PO.  The  contents  of 
the  file  PO  is  explained  in  Program 

0UT1 . 

PROGRAM  USE: 

The  program  is  loaded  by  the  follow¬ 
ing  command. 

RLDR  PLOT1  GRPH.LB  @FLIB@ 

SUBROUTINE  REQUIRED: 

Name  Location  Purpose 

GRPH.LB  DP4F  General  graph  plot 

EXECUTION  OF  THE  PROGRAM  AND  ITS  RESULTS: 

PLOT1 

QUANTIZE  OUTPUT  FILE  NAME  FOR  PLOT:  PO 


The  contents  of  the  file  PO  is  explained  in  Program 


OUT1 
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Copy  available  fc  DTIC  does  not 
pernnt  hilly  legible  rep.oducLou 
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permit  fully  legible  reproduction 
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One  of  the  main  problems  in  digital  filter  implemen¬ 
tation  is  that  all  practical  devices  are  of  finite  precision. 
Therefore,  the  finite  word  length  effect  of  digital  filters 
is  an  area  of  high  interest. 

There  are  various  types  of  digital  filter  structures. 

Due  to  the  effect  of  finite  word  length  registers,  each 
digital  filter  structure  gives  a  slightly  different  output 
response  for  the  same  transfer  function.  Therefore,  it  is 
important  to  find  the  best  filter  structure  which  has  the 
lowest  affect  on  the  output  response  for  the  same  transfer 
function. 

In  this  paper,  six  HR  (Infinite  Impulse  Response) 
digital  filters  and  six  FIR  (Finite  Impulse  Response)  digital 
filters  are  investigated,  theoretically,  for  the  low  sensitiv¬ 
ity  due  to  a  finite  word  length  register.  In  addition,  the 
six  FIR  digital  filters  are  simulated  by  computer  to  obtain 
practical  results.  Finally,  it  will  be  shown  that  NS  (Nested 
Structure)  digital  filters  produce  the  best  response  for  the 
least  amount  of  sensitivity. 


